Написать программу, которая запрашивает массив размерности 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;Beginclrscr;writeln(\'Введи размер матрицы: \');readln(m);For i:=1 to m do beginFor j:=1 to m do beginWrite(\'a[\',i,\',\',j,\']\');read(a[i,j]);end;end;clrscr;s:=0;p:=0;For i:=1 to m do beginFor j:=1 to m do begins:=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 beginFor j:=1 to m do beginif(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..