сумма элементов квадратной матрицы расположенных выше главной диагонали (Pascal)

[Vogelfrei]

Имеется задание:
составить подпрограмму-функцию для нахождения суммы элементов квадратной матрицы находящихся выше главной диагонали и определить максимальную из указанных сумм для матриц X=A2+B3, Y=AAT+BBT
где А,В - исходные произвольно заданные матрицы размером 5х5

 Program kyrs; 
 const 
 Nmax=5; 
 type 
 Matrics=array[1..nmax, 1..nmax] of integer; 
 Masiv=array[1..nmax] of integer; 
 var 
 a,b,a2,b2,b3,at,bt,ata,btb,x,y:matrics; 
 m,n:masiv; 
 i,j,t:integer; 
 sx,sy:real; 

 Procedure input (var a:matrics); 
 var i,j:integer; 
 begin 
 for i:=1 to 5 do 
 for j:=1 to 5 do 
 begin 
 write ('[',i,',',j,']='); 
 read(a[i,j]); 
 end; 
 for i:=1 to 5 do 
 begin 
 for j:=1 to t do 
 write(a[i,j]); 
 writeln 
 end; 
 end; 
 Procedure umn (a,b:matrics; var a2:matrics); 
 var 
 i,j,k,s:integer; 
 begin 
 for i:=1 to 5 do 
 for j:=1 to 5 do 
 begin 
 s:=0; 
 b:=a; 
 for k:=1 to 5 do 
 s:=s+a[k,i]*b[j,k]; 
 a2[i,j]:=s; 
 end; 
 end; 
 Procedure summa (a,b:matrics; var x:matrics); 
 var 
 i,j:integer; 
 begin 
 for i:=1 to 5 do 
 for j:=1 to 5 do 
 x[i,j]:= a[i,j]+b[i,j]; 
 end; 

 Procedure over (x:matrics; Var s:real); 
 var 
 z:real; 
 Begin 
 z:=0; 
 for i:= 1 to 4 do 
 for j:= 2 to 5 do 
 s:=z+x[i,j]; 
 Writeln('summa elementov vishe glavnoi diagonali=', s:5); 
 end; 
 Procedure transp(a:matrics; var at:matrics); 
 var 
 i,j:integer; 
 begin 
 for i:=1 to 5 do 
 for j:=1 to 5 do 
 at[i,j]:=a[i,j] 
 end; 
 begin 
 writeln('vvedite elementi matricy a'); 
 input(a); 
 writeln('vvedite elementy matricy b'); 
 input(b); 
 umn(a,a ,a2); 
 umn(b,b,b2); 
 umn(b2,b,b3); 
 trans(a,at); 
 trans(b,bt); 
 umn(a,at,ata); 
 umn(b,bt,btb); 
 summa(a2,b3,x); 
 summa(ata,btb,y); 
 sx:=over(x,); 
over(y,sy); 
 if sx>sy 
 then 
 writeln('max=',sx); 
 else writeln('max=', sy); 
 if sx=sy; 
 then writeln('oni ravni!'); 
 readln; 
 end. 
 end.

после ввода матриц программа вылетает и ругается ошибкой 201(
где косяк?

[GetMax]

У вас в процедуре input

 for j:=1 to t do

Явно должно быть

 for j:=1 to 5 do

В основной программе неправильно вызвана процедура over. Вместо

sx:=over(x,);

Должно быть

over(x,sx);

 if sx>sy 
 then 
 writeln('max=',sx); 
 else writeln('max=', sy);

Перед else точки с запятой не нужно.
Если trans(которая кстати изначально у вас называется transp) это процедура транспонирования матрицы, то она не транспонирует матрицу

[Vogelfrei]

уже исправила, но по ходу дела проблема не в этом, потому что вылетает с процедуры umn

[Vogelfrei]

заработало) только матрица почему-то в линию выводится

[GetMax]

только матрица почему-то в линию выводится

Форматный вывод попробуй использовать

for i:=1 to 5 do 
 begin 
 for j:=1 to 5 do 
 write(a[i,j]:3); 
 writeln 
 end;

И тут тоже

 if sx>sy 
 then 
 writeln('max=',sx:4:2); 
 else writeln('max=', sy:4:2);