Шифрование (Pascal) - Простая моноалфавитная замена

program II,e3apb;
var
    f: text;
    s: string;
    a: char;
    i: byte;
begin
      assign(f,'c:\1.txt');
      reset(f);
      while not eof(f) do
      read(f,s);
      close(f);
      writeln(s);
      for i:=1 to length(s) do
      begin
             a:=s[i];
             if (ord(a)>96)and(ord(a)<123) then a:=chr((((ord(a)-97)+4) mod 26)+97)
             else if (ord(a)>64)and(ord(a)<91) then a:=chr((((ord(a)-65)+4) mod 26)+65)
                  else if (a=' ') then a:=' ';
             s[i]:=a;
      end;
      writeln(s);
      for i:=1 to length(s) do
      begin
             a:=s[i];
             if (ord(a)>96)and(ord(a)<123) then a:=chr((((ord(a)-97)+22) mod 26)+97)
             else if (ord(a)>64)and(ord(a)<91) then a:=chr((((ord(a)-65)+22) mod 26)+65)
                  else if (a=' ') then a:=' ';
             s[i]:=a;
      end;
      writeln(s);
      writeln;
      readln;
end.