Известно что некто расположил все буквы алфавита по кругу и и заменил каждую букву исходного сообщения на следующую после нее декодируйте полученные шифровки

какие слова получились , допиши вопос , я полученые

{запись 5 строк в файл  } procedure tform1.button1click(sender: tobject); var outfile: textfile; begin assignfile(outfile, 'outfile.txt') ; rewrite(outfile); writeln(outfile, ' из delphi'); writeln(outfile, 'моя программа работает, и выводит ' +'данный текст, чтобы доказать '); writeln(outfile, '3. треться строка'); writeln(outfile, '234 четвертая'); writeln(outfile, 'пятая строка'); closefile(outfile); end; // вывод на экран точнее в мемо или лист боксprocedure tform1.button2click(sender: tobject); begin  // выводим в мемо  memo1.lines.loadfromfile('outfile.txt'); // либо в лист бокс  как тебе лучше  listbox1.items.loadfromfile('outfile.txt'); end; // кнопка для закрытия  procedure tform1.button3click(sender: tobject); begin  close; end; // событие oncloseprocedure tform1.formclose(sender: tobject; var closeaction: tcloseaction); begin  if messagedlg('вы точно хотите выйти? ',      mtconfirmation, mbokcancel,0)= mrok then begin      closeaction: = cafree;           end  else begin      closeaction: = canone;   end; end; здесь! outfile.txt - это ваш файл(может создаваться автоматическичто нужно сделать? 1. закинуть на форму 3 кнопки2. закинуть listbox или memo3. в событиях формы в инспекторе объектов (инспетор объектов/ события/ onclose) в onclose выбрать процедуру formclose

Var   a: array[1..20] of integer;   i,n,c: integer;     begin       for i: =1 to 20 do         begin         a[i]: =random(10)+1;         write(a[i],' ');           if i mod 2 = 1 then             if a[i] mod 2 = 0 then             begin               c: =c+a[i];               n: =n+1;           end;       end;       writeln;               writeln( c/n);       end.