Ввести слово. Определить является ли данное слово перевертышем — Pascal(Паскаль)

program string_16;

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.