Определить, является введенное слово "перевертышем" (потоп, казак). (программа Паскаль)

USES Crt;
 VAR
   A, B : STRING [20];  I, N: BYTE;
BEGIN
  ClrScr;
  Write('Введите слово  ');  ReadLn(A);
  N:=Length(A);
  FOR I:=N DownTo 1 DO
      B:=B+A[I];
   IF B=A THEN Write('Перевертыш') ELSE Write('Не перевертыш');
END.