Умножение матриц ПАСКАЛЬ

[incl_02]

Ребятя, помогите пожалуйста.

По заданию надо программу для умножения матриц одного размера.
Написал код, вопрос к вам что в нем не так?( плохо умножает )
И как сделать красивый вывод?

program abc;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    b:array[1..n,1..n] of integer;
    c:array[1..n,1..n] of integer;
    i,j:integer;
    
//Заполнение--------------------------------
begin
  randomize;
  for i:=1 to n do 
  for j:=1 to n do 
  begin
    a[i][j]:=random(50)+5;
    b[i][j]:=random(50)+5;
  end;
//Умножение----------------------------------
 for i:=1 to n do 
 for j:=1 to n do 
 begin
   c[i][j]:=a[i][j]*b[i][j];
 end;
//Вывод-------------------------------------
 for i:=1 to n do 
 for j:=1 to n do 
 begin
   write(a[i][j]:3);
   write;
 end;
 
 for i:=1 to n do 
 for j:=1 to n do 
 begin
   writeln(b[i][j]:3);
   writeln;
 end;
 
 for i:=1 to n do 
 for j:=1 to n do 
 begin
   write(' ',c[i][j]);
   write;
 end;
 
end.

_______________________________
Буду очень благодарен.

[incl_02]

_решил проблему_