Описать рекурсивную функцию simm(s) логического типа, проверяющую, является ли симметричной s — Pascal(Паскаль)

uses
  SysUtils;
  function simm(s: string):boolean;
var a:byte;
begin
  a:=length(s);
  case a of
    0,1: simm:=true;
      2: simm:= s[1]=s[2];
     else simm:=(s[1]=s[a]) and simm(copy(s,2,a-2));
  end;
end;
var s:string;
begin
  write('s='); readln(s);
  if not simm(s) then write('nesimetrichno');
  writeln('simmetrichno');
  readln
end.