НУЖНА ПРОГРАММА НА ТУРБО ПАСКАЛЕ!!! Запросить упользователястроку 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.

1. Вот такой он странный, этот Турбо Паскаль 7.0. Попробуйте выбросить строку s1:=s;- посмеемся вместе над результатом.