Нужна программа 1)найти максимальный и минимальный элемент матрицы 2)найти сумму диагональных элементов всё это в одной программе (паскаль)

Var   a: array[1..30,1..30] of integer;   n,min, max, i,j,s: integer; begin writeln('n='); readln(n); randomize; writeln('sluciayniy massiv: '); for i: =1 to n do begin   for j: =1 to n do  begin      a[i,j]: =random(51)-25;     write(a[i,j]: 5);   end;     writeln; end;   s: =0;   min: = a[1,1];   max: = a[1,1];   for i: = 1 to n do   for j: = 1 to n do  if a[i,j]< min then   min : = a[i,j];   for i: = 1 to n do  for j: = 1 to n do   if a[i,j]> max then   max: = a [i,j];   for i: =1 to n do   for j: = 1 to n do   if i=j then s: = s+a[i,j];   writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);   readln;   end. var   a: array[1..100,1..100] of integer;   n,min, max, i,j,s: integer; begin writeln('n='); readln(n); writeln('vvedite massiv: '); for i: =1 to n do begin    for j: =1 to n do begin  read(a[i,j]);   end;   writeln;     end;   s: =0;   min: = a[1,1];   max: = a[1,1];   for i: = 1 to n do  for j: = 1 to n do  if a[i,j]< min then min : = a[i,j];     {поиск минимального элемента }   for i: = 1 to n do   for j: = 1 to n do  if a[i,j]> max then max: = a [i,j];   {поиск максимального элемента} for i: =1 to n do  for j: = 1 to n do  if i=j then s: = s+a[i,j];   { поиск элементов главной диагонали и нахождение их суммы} writeln('min=',min, ' max=',max,' summa elementov glavnoi dioganali=',s);   readln; end.

С sep можно сделать разделение посередине строчки. ответ С