Написать программу и блок к ней!

uses
    crt;
type
    mat=array[1..3,1..3] of integer;
var
   a,b,c,a1,b1,c1:mat;
   i,j,n,t,m,p:byte;
procedure vvod(var d:mat; h:byte);
begin
     writeln('wvedite matricu razmeron ' , h ,'x', h);
     for i:=1 to h do
     for j:=1 to h do
         read(d[i,j]);
end;
procedure tranc(var m:mat);
var
   q:integer;
begin
     for i:=1 to n-1 do
         for j:=i+1 to n do
             begin
                  q:=m[i,j];
                  m[i,j]:=m[j,i];
                  m[j,i]:=q
             end
end;
procedure vivod(k:byte;l:byte);
begin
     if k=sqr(l) then
        writeln(' matrica simmetrishna ')
     else
         writeln('matrica nesimmetrishna ')
end;
begin
clrscr;
writeln('wvedite razmernost matrici A ');
readln(n);
vvod(a,n);
a1:=a;
tranc(a1);
t:=0;
for i:= 1 to n do
    begin
         for j:= 1 to n do
             if a[i,j]=a1[i,j] then
                t:=t+1;
    end;
vivod(t,n);
writeln('wvedite razmernost matrici B ');
readln(m);
vvod(b,m);
t:=0;
b1:=b;
tranc(b1);
for i:= 1 to n do
    begin
         for j:= 1 to n do
             if b[i,j]=b1[i,j] then
                t:=t+1
    end;
vivod(t,m);
writeln('wvedite razmernost matrici A ');
readln(p);
vvod(c,p);
t:=0;
c1:=c;
tranc(c1);
for i:= 1 to n do
    begin
         for j:= 1 to n do
             if c[i,j]=c1[i,j] then
                t:=t+1
    end;
vivod(t,p);
readkey;
end.