Дано слово . проверить является ли оно ''перевертышем''(перевертышем называется слово ,читаемое одинакого как с начала так и с конца ),

var slovo,reverse:string;
var i:integer;
begin
   write('slovo:');
   readln(slovo);
   for i:=length(slovo) downto 1 do
     reverse:=reverse+slovo[i];
   if(slovo=reverse) then writeln('perevertish')
   else writeln('ne perevertish');
   readln;
end.