Проверить, является ли слово перевертышм

Задача. Определить является ли данное слово перевертышем.
Решение.

uses crt;
var a,b,c : string;
 i : longint;
 begin
 clrscr;
 write('Введите слово: ');readln(a);
 b:='';
 for i:=1 to length(a) do b:=a[i]+b;{ переворачиваем слово }
 if a=b then write('перевертыш')
 else write('не перевертыш');
 readln;
 end.