Преобразовать квадратную матрицу порядка N, вывести на экран начальную и преобразованную матрицу. Преобразование осуществить: умножением элементов каждого столбца на соответствующий элемент главной диагонали — Pascal(Паскаль)

program zadacha1;
const
     N=5;
var
   matr,matrP:array[1..N,1..N] of integer;
   i,j:integer;
 begin
 writeln('Программа преобразования матрицы');
 
//Заполнение матрицы
 for i:=1 to N do
     for j:=1 to n do
     matr[i,j]:=random(10);
 
//печать матрицы
       for i:=1 to N do
      begin
           for j:=1 to N do
           write(matr[i,j]:3);
       writeln;
       end;
 
       writeln;
//прелбразование матрицы
  for i:=1 to N do
      for j:=1 to N do
      matrP[j,i]:=matr[j,i]*matr[i,i];
 
//печать преобразованной матрицы
  for i:=1 to N do
      begin
           for j:=1 to N do
           write(matrp[i,j]:3);
       writeln;
       end;
   readln;
 end.