Сохранить данные в файл

    uses crt;
    type
      ttable=array[1..7,1..5] of char;
    const
      list:ttable=(('а','б','в','г','д'),
                   ('е','ж','з','и','к'),
                   ('л','м','н','о','п'),
                   ('р','с','т','у','ф'),
                   ('х','ц','ч','ш','щ'),
                   ('ъ','ы','ь','э','ю'),
                   ('я','.',',',':',' '));
      {Степень перемешивания, с которой сформируются исходные таблицы}
      mixdepth=1000;
 
    procedure findxy(table:ttable;c:char;var x,y:byte);
    var
      p,o:byte;
    begin
    x:=1;
    y:=1;
      for o:=1 to 7 do
      for p:=1 to 5 do
      if table[o,p]=c then
      begin
        x:=p;
        y:=o;
        exit;
      end;
    end;
 
    var
      table1,table2:ttable;
      p,o,p2,o2:byte;
      i:integer;
      c:char;
      s,s2:string;
    begin
      {Заполним таблицы}
      for o:=1 to 7 do
      for p:=1 to 5 do
      begin
        table1[o,p]:=list[o,p];
        table2[o,p]:=list[o,p];
      end;
      {Перемешаем таблицы}
      randomize;
      for i:=1 to mixdepth do
      begin
        {мешаем первую таблицу}
        o:=random(7)+1;
        p:=random(5)+1;
        o2:=random(7)+1;
        p2:=random(5)+1;
        c:=table1[o,p];
        table1[o,p]:=table1[o2,p2];
        table1[o2,p2]:=c;
        {Мешаем вторую таблицу}
        o:=random(7)+1;
        p:=random(5)+1;
        o2:=random(7)+1;
        p2:=random(5)+1;
        c:=table2[o,p];
        table2[o,p]:=table2[o2,p2];
        table2[o2,p2]:=c;
      end;
      {Выведем таблицы на экран}
      clrscr;
      for o:=1 to 7 do
      begin
        for p:=1 to 5 do write(table1[o,p]:2);
        write('  | ');
        for p:=1 to 5 do write(table2[o,p]:2);
        writeln;
      end;
      writeln('Введите текст который будет зашифрован используя только символы из таблиц:');
      readln(s);
      if odd(length(s)) then s:=s+' '; {Если длина нечётна, добавим пробел}
      {Сформируем зашифрованую строку}
      i:=1;
      s2:='';
      while i<length(s) do
      begin
        findxy(table1,s[i],p,o);
        findxy(table2,s[i+1],p2,o2);
        s2:=s2+table2[o,p2]+table1[o2,p];
        inc(i,2);
      end;
      {Выведем зашифрованую строку}
      writeln('Зашифрованая строка выглядит так:');
      writeln(s2);
    end.