Нужна программа на турбо ! запросить у пользователя строку s, сформировать из нее строку s1, переставив символы в строке s местами: первый с последним, второй с предпоследним и т.д. вывести на чистый экран строки s и s1, рядом их длину.

Uses Crt;

var
   s,s1:string;
   i,n,t:integer;

begin
   ClrScr;
   Write('Введите строку: '); Readln(s);
   ClrScr;
   n:=Length(s);
   s1:=Copy(s,1,n);
   for i:=1 to n do s1[i]:=s[n-i+1];
   Writeln(s,' ',Length(s));
   Writeln(s1,' ',Length(s1));
   ReadKey
end.