двумерный массив

program mass;
uses crt;
const n=4;
type mm=array[1..20,1..20]of integer;
var m:mm; f:boolean;
    i,j:integer;
    s:longint;
 
function VerSim(k:mm):boolean;
var i,j:integer;
flag:boolean;
begin
 flag:=true;
 for i:=1 to n do
 for j:=1 to n div 2 do
 if k[i,j]<>k[i,n-j+1] then
 begin
  flag:=false;
  break;
 end;
 VerSim:=flag;
end;
 
function HorSim(k:mm):boolean;
var i,j:integer;
flag:boolean;
begin
 flag:=true;
 for i:=1 to n div 2 do
 for j:=1 to n do
 if k[i,j]<>k[n-i+1,j] then
 begin
  flag:=false;
  break;
 end;
 HorSim:=flag;
end;
 
function LDgSim(k:mm):boolean;
var i,j:integer;
flag:boolean;
begin
 flag:=true;
 for i:=1 to n-1 do
 for j:=1 to n-1-i do
 if k[i,j]<>k[n+1-j,n+1-i] then
 begin
  flag:=false;
  break;
 end;
 LDgSim:=flag;
end;
 
function RDgSim(k:mm):boolean;
var i,j:integer;
flag:boolean;
begin
 flag:=true;
 for i:=2 to n do
 for j:=i to n do
 if k[i,j]<>k[j,i] then
 begin
  flag:=false;
  break;
 end;
 RDgSim:=flag;
end;
 
begin
 clrscr;
 s:=1;
 for i:=1 to 4 do
 for j:=1 to 4 do
 begin
  write('M[',i,';',j,']: ');
  readln(m[i,j]);
  s:=s*m[i,j];
 end;
 f:=HorSim(m) or VerSim(m) or LDgSim(m) or RDgSim(m);
 if f then
 begin
  if HorSim(m) then WriteLn('Simmetrichen po gorizontali');
  if VerSim(m) then writeln('Simmetrichen po verticali');
  if LDgSim(m) then writeln('Simmetrichen po glavnoi diagonali');
  if RDgSim(m) then writeln('Simmetrichen po pobochnoi diagonali');
 end else writeln('Massiv nesimmetrichen');
 writeln('Proizvedenie elementov=',s);
 
 readln;
end.