Дано слово. Проверить является ли оно 'перевертышем'

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.