Написать программку, которая запрашивает массив размерности 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(ilt;=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..