Определение минимального значения среди положительных элементов матрицы

Program pp;
const
    i = 5;
    j = 5;
type
    matrix = array [1..i, 1..j] of integer;
var
    a: matrix;
    sum:integer;
procedure minimal;
var
i,j,min:integer;
begin
for i:=1 to 5 do
for j:=2 to 5 do
if ((a[i,j])>(0)) and ((a[i,j])<(min)) then
min:=a[i,j];
end;
procedure summa;
begin
var
i,j,min,sum:integer;
for i:=1 to 5 do
j:=i;
sum:=sum+a[i,j];
end;
begin
min:=minimal;
sum:=summa;
writeln('',min,sum);
end.

Program pp;
const n=5;
type matrix = array [1..n, 1..n] of integer;
procedure vvod(var a:matrix);
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4)
   end;
  writeln;
 end
end;
procedure minimal(a:matrix);
var i,j,k,min:integer;
begin
k:=0;
min:=maxint;
for i:=1 to n do
for j:=2 to n do
if (a[i,j]>0) and ((a[i,j])<(min)) then
 begin
  k:=1;
  min:=a[i,j];
 end;
if k=0 then writeln('Нет положительных элементов')
else writeln('Минимальный положительный=',min)
end;
procedure summa(a:matrix);
var i,j,sg,sp:integer;
begin
sg:=0;
sp:=0;
for i:=1 to n do
 begin
  sg:=sg+a[i,i];
  sp:=sp+a[i,n-i+1];
 end;
writeln('Сумма элементов главной диагонали=',sg);
writeln('Сумма элементов побочной диагонали=',sp);
end;
var a: matrix;
begin
vvod(a);
minimal(a);
summa(a)
end.