Дана программа. Нужно сделать рекурсию

var s,k:string; i:integer;
begin
     write('Введите строку: ');
     readln(s);
     k:='';
     for i:=length(s) downto 1 do
         k:=k+copy(s,i,1);
     write('Наоборот: ',k);
end.

procedure revers(var s:string;k:integer);
var c:char;
begin
if k=1 then
 begin
  c:=s[1];
  s[1]:=s[length(s)];
  s[length(s)]:=c;
 end;
if k<=length(s) div 2 then revers(s,k+1);
end;
var s:string;
begin
write('Введите строку: ');
readln(s);
revers(s,1);
write(s);
end.

var s:string;
  i,j:integer;
  c:char;
procedure revers(var s:string; i,j:integer);
begin
  if i<j then
  begin
      c:=s[i];
      s[i]:=s[j];
      s[j]:=c;
      revers(s,i+1,j-1);
  end;
end;
begin
  readln(s);
  j:=length(s);
  revers(s,1,j);
  writeln(s);
end.

var
  s := ReadString;
 
procedure r(n: integer) := if n > 0 then begin Write(s[n]); r(n - 1) end;
 
begin
  r(s.Length)
end.