50 lines
872 B
ObjectPascal
50 lines
872 B
ObjectPascal
uses System.Collections.Generic;
|
||
|
||
var
|
||
mnem,f,f1: text;
|
||
d := new Dictionary<string,char>;
|
||
c: char;
|
||
s: string;
|
||
|
||
function Convert(s: string): string;
|
||
begin
|
||
foreach x: KeyValuePair<string,char> in d do
|
||
begin
|
||
var p := Pos(x.Key,s);
|
||
while p>0 do
|
||
begin
|
||
Delete(s,p,Length(x.Key));
|
||
Insert(x.Value,s,p);
|
||
p := Pos(x.Key,s);
|
||
end;
|
||
end;
|
||
Result := s;
|
||
end;
|
||
|
||
begin
|
||
assign(mnem,'mnemonicsrus.txt');
|
||
reset(mnem);
|
||
for c:='а' to 'я' do
|
||
begin
|
||
readln(mnem,s);
|
||
d.Add(Trim(s),c);
|
||
end;
|
||
for c:='А' to 'Я' do
|
||
begin
|
||
readln(mnem,s);
|
||
d.Add(Trim(s),c);
|
||
end;
|
||
close(mnem);
|
||
assign(f,'Table of Contents.hhc');
|
||
assign(f1,'Table of Contents New.hhc');
|
||
reset(f);
|
||
rewrite(f1);
|
||
while not eof(f) do
|
||
begin
|
||
readln(f,s);
|
||
s := Convert(s);
|
||
writeln(f1,s);
|
||
end;
|
||
close(f);
|
||
close(f1);
|
||
end. |