НУЖНА ПРОГРАММА НА ТУРБО ПАСКАЛЕ!!! Запросить у пользователя строку S, сформировать из нее строку S1, переставив символы в строке S местами: первый с последним, второй с предпоследним и т.д. Вывести на чистый экран строки S и S1, рядом их длину.

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

Но вообще-то корректнее делать с Copy. Сейчас поправлю

Отвык уже от этих ужасов)) Строки в ТурбоПаскаль нельзя непосредственно присваивать друг-другу, потому что они - массивы символов. Присваивание вида s1:=s приводит к копированию ссылки, после чего s и s1 указывают на одно и то же место в памяти - строку s. Поэтому надо использовать Copy.

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));   ReadKeyend.