Введено слово. Составить программу, проверяющую является ли данное слово перевертышем, т.е. читается ли слева направо и справа налево одинаково — Pascal(Паскаль)

uses crt;

var
  i, n, m: integer;
  a: string;

begin
  clrscr;
  writeln('Vvedite slovo');
  readln(a);
  n := length(a);
  m := 1;
  for i := 1 to n div 2 do
    if a[i] <> a[n - i + 1] then
    begin
      m := 0;
      break
    end;
  case m of
    1:
      write(' Vvedonoe slovo palindrom');
    0:
      write(' Vvedonoe slovo ne palindrom');
  end;
  readln;

end.