Шифрование (Paskal)

[Студент2009]

Здравствуйте... Задача состоит в том чтобы реализовать программный модуль шифрования и дешифрования файлов на жестком диске ПК, алгоритм шифрования: простая моноалфавитная замена, ключ: a=3, K=2.
Вывести на экран открытые данные, результат шифрования, результат дешифрования.
Сам код программы выглядит так, а как реализовать вывод открытых данных, результат шифрования, результат дешифрования не могу разобраться.

program MonoaJIoIoaBuT;
var
s:string;
i:byte;
begin
 readln(s);
 for i:=1 to length(s) do
  begin
    if(s[i]='a')then s[i]='3';
    if(s[i]='K')then s[i]='2';
  end;
writeln(s);
readln;
end.

По методу Цезаря это выглядит так и в файле 1.txt содержиться текст: laboratory WORK.

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.

И выводит:
Открытые данные: laboratory WORK
Результат шифрования: pefsvexsvc ASVO
Результат дешифрования: laboratory WORK