Рекурсия: напечатать в обратном порядке заданный текст

function F (s : string): string;
var i : integer;
begin
  for i:=Length(s) downto 1 do Result:=Result+s[i];
  Writeln(Result);
end;
 
var s : string;
begin
  Write('Введите строку: ');
  Readln(s);
  F(s);
end.

program reverse;
function rever(s:string):string;
begin
  Write(s[Length(s)]);
  Dec(Length(s));
  if Length(s)>=1 then rever(s);
end;
var s:string;
begin
  Write('Введите строку: ');
  Readln(s);
  Write(rever(s));
end.

function F (s : string; l : integer): string;
var c : char;
begin
  inc(l);  // l:=l+1;
  if l<=Length(s) then begin
    c:=s[l];
    Result:=Result+c;
    F(s,l);
  end;
  Write(Result);
end;
 
var s : string;
    l : integer;
begin
  Write('Введите строку: ');
  Readln(s);
  l:=0;
  F(s,l);
end.

function rever(s : string) : string;
begin
  if s = '' then result := ''
  else result := f(copy(s, 2, length(s) - 1)) + s[1];
end;
 
var s:string;
begin
  Write('Введите строку: ');
  Readln(s);
  Write(rever(s));
end.

l:=0;

function Rev(s: string; i: integer): string := i > 1 ? s[i] + Rev(s, i - 1) : s[i].ToString;
 
begin
  var s := ReadlnString;
  writeln(Rev(s, s.Length));
end.

program reverse;
function rever(s:string; i:integer; l:integer):string;
var 
  c:char; {объявление переменной} 
begin
  inc(i);  
  if i<=l then begin
    c:=s[i];
    s[i]:=s[l];
    s[l]:=c;
    dec(l);
    rever(s,i,l);
  end; {расчет результата}
  write(s);
end; {вывод результата в подпрограмме и завершение функции}
var
  s:string;
  i, l:integer;{объявление переменных}
begin
  write('Введите строку: ');
  readln(s); {ввод данных}
  l:=length(s);
  i:=0;
  rever(s,i,l); {вывод результата}
end.

program reverse;
function rever(var s:string; i:integer; l:integer):string;
var 
  c:char; {объявление переменной} 
begin
  inc(i);  
  if i<=l then begin
    c:=s[i];
    s[i]:=s[l];
    s[l]:=c;
    dec(l);
    rever(s,i,l);
  end; {расчет результата}
  //write(s);
end; {вывод результата в подпрограмме и завершение функции}
var
  s:string;
  i, l:integer;{объявление переменных}
begin
  write('Введите строку: ');
  readln(s); {ввод данных}
  l:=length(s);
  i:=0;
  rever(s,i,l); {вывод результата}
  writeln(s);
end.

function Rev(s: string): string := s > '' ? Rev(s?[2:]) + s?[:2] : '';
begin
  Rev(ReadString).Print
end.