Написать программу, которая запрашивает массив размерности N и выводит на экран сам массив, а также

Program n1;
Uses Crt;const n=100;
Var a:array[1..n,1..n]of integer;
i,j,k,m,p,s,b,t:integer;
Begin
clrscr;
writeln('Введи размер матрицы: ');readln(m);
For i:=1 to m do begin
For j:=1 to m do begin
Write('a[',i,',',j,']');read(a[i,j]);
end;
end;
clrscr;
s:=0;p:=0;
For i:=1 to m do begin
For j:=1 to m do begin
s:=s+a[i,j];
if(i<=j)then p:=p+a[i,j];
write(a[i,j]:5);
end;
writeln;
end;
k:=0;t:=0;
For i:=1 to m do begin
For j:=1 to m do begin
if(j=1)then b:=a[i,j];
if(b=a[i,j])then k:=k+1;
end;
if(k=m)then t:=t+1;
k:=0;
end;
writeln('Сумма всех элементов массива: ',s);
writeln('Сумма элементов над главной диагональю: ',p);
writeln('Количество строк в которых все элементы одинаковы ',t);
end..