У меня такое задание:

нужно зашифровать сообщения, записывая все слова в предложении наоборот и все буквы в слове также наоборот. Составить программу, зашифровывающую и расшифровывающую любое сообщение составленное таким образом.

В программе Pascal я все это сотавила:

uses crt;
var s: string;
i: integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s)-1 do
if(s[i]='')and(s[i+1]<>'') then
writeln
else write(s[i]);
readln;
end.

Все прекрасно работает: МАМА МЫЛА РАМУ и наоборот соответственно УМАР АЛЫМ АМАМ

Нужно реализовать это в Delphi. Я так понимаю необходимо 3 поля МЕМО - в 1 само сообщение, во 2 - оно зашифровывется, в 3 - расшифровывется. Вот как это сделать, вывести в поле мемо сообщение о расшифровке и дешифровке я не знаю.

Подскажите, пожалуста!

procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
begin
  s:=Memo1.Text;
  memo2.Text:='';
  for i := Length(memo1.Text) downto 1 do
    memo2.Text:=memo2.Text+memo1.Text[i];
end;

uses StrUtils;

// ...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := ReverseString(Memo1.Text);
end;

Помогите решить эту же задачу только в виде функции

Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. Mistakes to Avoid when Gambling