Проверить правильность. Дан массив, найти сумму эл-ов >0.

program prog;
type
        stroka = array [1..n, 1..n] of integer;
var
        a: stroka;
        i: integer;
        j: integer;
 
function sum(a: stroka):integer;
var
        i, j, k: integer;
begin
        k := 0;//изначально сумма равна нулю
 
        for i := 1 to n do//перебираем все элементы
                for j := 1 to n do
                        if a[i][j] > 0 then k := k + a[i][j];//если элемент больше нуля, приплюсовываем к общей сумме
        sum := k;//возвращаем результат
end;
 
begin
        randomize;//заносим в массив "случайные" значения
        for i := 1 to n do
                for j := 1 to n do
                        s[i][j] := random(100) - 50;
 
        WriteLn(sum(a));//выводим на экран сумму положительных значений
 
        for i := 1 to n do//выводим на экран наш массив
        begin
                for j := 1 to n do
                begin
                        write(a[i][j]:3);
                        write(' ');
                end;
                writeln;
        end;
end.

program prog;   
uses crt;
const n=5;
type  stroka = array [1..n, 1..n] of integer;
var a: stroka;
    i: integer;
    j: integer;
  
function sum(a: stroka):integer;   
var  
        i, j, k: integer;   
begin  
        k := 0;{изначально сумма равна нулю}
  
        for i := 1 to n do{перебираем все элементы}
                for j := 1 to n do  
                        if a[i][j] > 0 then k := k + a[i][j];{если элемент больше нуля, приплюсовываем к общей сумме}
        sum := k;{возвращаем результат}
end;   
  
begin
clrscr;
randomize;{заносим в массив "случайные" значения}
for i := 1 to n do
for j := 1 to n do
a[i][j] := random(10) - 5;
writeln('Matrica A:');
for i := 1 to n do{выводим на экран наш массив}
   begin
     for j := 1 to n do
     write(a[i][j]:5);
     writeln;
   end;
writeln;
WriteLn('Summa polozitelnyh=',sum(a));{выводим на экран сумму положительных значений}
readln
end.