Delphi - lab8_2

Program lab8_2;
type
 matr = array[1..15, 1..15] of real;
var a, b: matr;
      s1, s2:boolean;
      i,j,n:integer;

function sim(m: matr; mn:integer) : boolean;
begin
  sim:=true;
  for i:=1 to mn do
    begin
         for j:=i+1 to mn do
             if m[i,j]<>m[j,i] then
             begin
                  sim:=false;
                  break;
             end;
             if not sim then
             break;
    end;
end;

begin

writeln('input n: ');
readln(n);

writeln('input matr a: ');
for i:=1 to n do
   for j:=1 to n do
       readln(a[i][j]);

writeln('input matr b: ');
for i:=1 to n do
   for j:=1 to n do
       readln(b[i][j]);

s1 := sim(a, n);
s2 := sim(b, n);

if s1 then
writeln ('matr a is symmetric')
else
writeln ('matr a is not symmetric');


if s2 then
writeln ('matr b is symmetric')
else
writeln ('matr b is not symmetric');

readln;
end.