Вывести строку, содержащую те же символы, но расположенные в обратном порядке

uses crt;
var
a:string;
i,e:integer;
begin
writeln('Введите строку:');
readln(a);
e:=pos('.',a);
if e>0 then
for i:=e-1 downto 1 do
write(a[i])
else writeln('отсутствует точка.');
read;
end.

Function StRevers(St : String) : String;
Begin
  If Length(St)>0 then StRevers:=StRevers(Copy(St,2,Length(St)-1))+St[1]
   else StRevers:='';
end;

Function StRevers(St :String) : String;
Var
  ii  : Longint;
  St0 : String;
Begin
  St0:='';
 For ii:=length(St) downto 1 do
  St0:=St0+St[ii];
  StRevers:=St0;
end;

Function StRevers(St : String) : String;
Begin
  If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
   else StRevers:=St;
end;

var s:string;
Function StRevers(St :String) : String;
Var
  i,n: longint;t:char;
Begin
  n:=length(st);
  For i:=1 to n div 2 do
   begin
    t:=st[i];
    st[i]:=st[n-i+1];
    st[n-i+1]:=t
   end;
  StRevers:=St
end;
begin
 write('введите строку: ');readln(s);
 writeln(strevers(s))
end.

function StrRev(s: String): String;
var i, j: Integer; t: Char;
begin
  i:=1; j:=Length(s);
  while i<j do begin
    t:=s[i]; s[i]:=s[j]; s[j]:=t; Inc(i); Dec(j);
  end;
  StrRev:=s;
end;

function StrRev(s: String): String;
var i, j: PChar; t: Char;
begin
  i:=@s[1]; j:=@s[Length(s)];
  while i<j do begin
    t:=i^; i^:=j^; j^:=t; Inc(i); Dec(j);
  end;
  StrRev:=s;
end;

uses crt;
var
a:string;
i,e:integer;
begin
writeln('Введите строку:');
readln(a);
e:=pos('.',a);
if e>0 then
for i:=e-1 downto 1 do
write(a[i])
else writeln('отсутствует точка.');
read;
end.