Подпрограмма: определить, является ли массив перевёртышем

Uses
 CRT;
Type
 mas=array[1..11] of integer;
Var
 a,b,c:mas;
 
procedure zap(Var m:mas; n:integer; p:char);
Var
 i:integer;
begin
 writeln;
 writeln('Ââåäèòå ýëåìåíòû ìàññèâà ',p,': ');
 for i:=1 to n do
 begin
  write('mas[',i,']:=');
  readln(m[i]);
 end;
end;
 
function perev(Var m:mas; n:integer):boolean;
Var
 i:integer;
begin
 perev:=true;
 for i:=1 to n div 2 do
 if m[i]<>m[n-i+1] then
 begin
  perev:=false;
  break;
 end;
end;
 
begin
 zap(a,7,'A');
 if perev(a,7) then writeln('Äà ìàññèâ A ïåðåâ¸ðòûø')
 else writeln('Íåò ìàññèâ A íå ïåðåâ¸ðòûø');
 zap(b,9,'B');
 if perev(b,9) then writeln('Äà ìàññèâ B ïåðåâ¸ðòûø')
 else writeln('Íåò ìàññèâ B íå ïåðåâ¸ðòûø');
 zap(c,11,'C');
 if perev(c,11) then writeln('Äà ìàññèâ C ïåðåâ¸ðòûø')
 else writeln('Íåò ìàññèâ C íå ïåðåâ¸ðòûø');
end.