pascal matice

uses crt;
var  i,j,k,l,riadok,stlpec,riadok2,stlpec2,p,a,b,c,riadok3,stlpec3: integer;
     m,n,o: array [1..3,1..3] of byte;
begin
riadok:=1;
stlpec:=29;
riadok2:=13;
stlpec2:=29;
riadok3:=25;
riadok3:=29;
 clrscr;
 writeln ('Matice');
 writeln ('Zadaj prvu maticu: ');
 for i:=1 to 3 do
  for j:=1 to 3 do begin
                   write ('[',j,',',i,']');
                   readln (m[i,j]);
                   end;
 writeln ('Zadaj druhu maticu: ');
 for k:=1 to 3 do
  for l:=1 to 3 do begin
                   write ('[',l,',',k,']');
                   readln (n[k,l]);
                   end;;

 writeln;
 writeln ('Matice: ');
 writeln;
  for i:=1 to 3 do  begin
                    riadok:=riadok+3;
                    stlpec:=stlpec-3;
   for j:=1 to 3 do begin
                    gotoxy(riadok,stlpec);
                    write ('[',m[i,j],']');
                    stlpec:=stlpec+1;

                    end;
                    end;
  for p:=1 to 3 do begin
                   riadok2:=riadok2+3;
                   stlpec2:=stlpec2-3;
   for l:=1 to 3 do begin
                    gotoxy(riadok2,stlpec2);
                    write ('[',n[p,l],']');
                    stlpec2:=stlpec2+1;
                    end;
                    end;
  for a:=1 to 3 do
   for b:=1 to 3 do begin
                    o[a,b]:=m[a,b]+n[a,b];
                    end;
  for c:=1 to 3 do begin
                   riadok3:=riadok3+3;
                   stlpec3:=stlpec3-3;
   for b:=1 to 3 do begin
                    gotoxy (riadok3,stlpec3);
                    write ('[',o[c,b],']');
                    stlpec3:=stlpec3+1;
                    end;
                    end;
  gotoxy(14,27);
  writeln ('+');
  gotoxy(26,27);
  writeln ('=');
 readln;
end.