Найдите пожалуйста ошибкуmas2; var i,j,sum,kol: integer; a: array [1… 5, 1… 5] of integer; function rs (var kol: integer):…

Найдите пожалуйста ошибкуmas2; var i,j,sum,kol: integer; a: array [1… 5, 1… 5] of integer; function rs (var kol: integer): integer; var sum: integer; begin sum: =0; kol: =0; for i: =1 to 5 do for j: =1 to 5 do if (A[i,j]>0) and (j>i) then begin inc (kol); sum: =sum+A[i,j]; end; rs: =sum; end; begin for i: =1 to 5 do for j: =1 to 5 do A[i,j]: =Random (9); for i: =1 to 5 do begin for j: =1 to 5 do write (A[i,j]: 2); writeln; end; writeln; sum: =rs (kol); writeln ('Сумма=',sum); writeln ('Количество=',kol); readln; end.