Программа для замены символов

program n01;
uses crt;
var
    a:array[1..33] of char;
    b:array[1..33] of char;
    f1:text;i:integer;
    d:string;c:char;
 
begin
    a[1]:='а'; b[1]:='c';
    a[2]:='б'; b[2]:='z';
    a[3]:='в'; b[3]:='x';
    a[4]:='г'; b[4]:='v';
    a[5]:='д'; b[5]:='b';
    a[6]:='е'; b[6]:='n';
    a[7]:='ё'; b[7]:='m';
    a[8]:='ж'; b[8]:='a';
    a[9]:='з'; b[9]:='s';
    a[10]:='и'; b[10]:='d';
    a[11]:='й'; b[11]:='f';
    a[12]:='к'; b[12]:='i';
    a[13]:='л'; b[13]:='h';
    a[14]:='м'; b[14]:='g';
    a[15]:='н'; b[15]:='l';
    a[16]:='о'; b[16]:='k';
    a[17]:='п'; b[17]:='j';
    a[18]:='р'; b[18]:='y';
    a[19]:='с'; b[19]:='w';
    a[20]:='т'; b[20]:='u';
    a[21]:='у'; b[21]:='p';
    a[22]:='ф'; b[22]:='o';
    a[23]:='х'; b[23]:='q';
    a[24]:='ц'; b[24]:='r';
    a[25]:='ч'; b[25]:='t';
    a[26]:='ш'; b[26]:='1';
    a[27]:='щ'; b[27]:='2';
    a[28]:='ъ'; b[28]:='3';
    a[29]:='ы'; b[29]:='4';
    a[30]:='ь'; b[30]:='5';
    a[31]:='э'; b[31]:='6';
    a[32]:='ю'; b[32]:='7';
    a[33]:='я'; b[33]:='8';
    assign(f1,'e:/text/1.txt');
    readln(d);
    rewrite(f1);
    writeln(f1,d);
    reset(f1);
    while not eof (f1) do
       begin
         readln(f1,c);
         for i:=1 to 33 do
            if c=a[i] then writeln(b[i]);
 
 
       end;
end.

program n01;
uses crt;
const a:string[33]='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
      b:string[33]='czxvbnmasdfihglkjywupoqrt12345678';
var f1:text;
    i,j:integer;
    d:string;
    c:char;
begin
assign(f1,'e:/text/1.txt');
readln(d);
rewrite(f1);
writeln(f1,d);//записали 1 строку
reset(f1);
readln(f1,d);//1 и прочитаем
close(f1);
for i:=1 to length(d) do
for j:=1 to 33 do
if d[i]=a[j] then d[i]:=b[j];
write(d);
end.