ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли он перевертышем. ( читается туда и обратно одинаково, например КОМОК). x- исходный текст, у- текст в обратном порядке. Вывести на кран, "является перевертышем" или...

var   s:string; {функция проверки на палиндром} function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;   Result:=fl end; {основная программа} begin   writeln('Введите строку...');   readln(s);   if palind(s) then     writeln('Данная строка является палиндромом!')   else     writeln('Данная строка НЕ является палиндромом!') end. Без функции: var s:string; i:integer; palin:boolean; {основная программа} begin   writeln('Введите строку...');   readln(s); fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false; if palin then     writeln('Данная строка является палиндромом!') else     writeln('Данная строка НЕ является палиндромом!') end.