здравствуйте, помогите пожалуйста с программкой для языка паскаль. задача. Вывести на

1.
Var S : String;
  i : Byte;
Begin
  Readln(S);
  For i:=Length(S) downto 1 do Write(S[i]);
  Writeln;
end.

2.
Function StRevers(St : String) : String;
Begin
  If Length(St)gt;1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
   else StRevers:=St;
end;
Var S : String;
Begin
  Readln(S);
  Writeln(StRevers(S));
end.