Функция,вывод ответа

Program ululu;
uses crt;
const n=5;
type massiv=array [1..100,1..100] of integer;
var i,j,SumAbs,Sum:integer;
    mas:massiv;
    MinSum:integer;
    s:boolean;
 
procedure vivod(var a:massiv);
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
    write(a[i,j]:5);
    writeln;
  end;
end;
 
function summa(a:massiv;n:integer):integer;
begin
 for j:=1 to n do
  begin
   s:=true;
   for i:=1 to n do
    if a[i,j]<0 then s:=false;
    if s=true then
   begin
    sum:=0;
    for i:=1 to n do
     sum:=sum+a[i,j];
    writeln('сумма ',j,'-го столбца = ',sum);
   end;
  end;
end;
 
 
procedure min(a:massiv;n:integer;var MinSum:integer);
var i,j,SumAbs:integer;
begin
minsum:=abs(a[1,1]);
for i:=n-1 downto -n+1 do
 begin
  sumabs:=0;
  for j:=1 to n do
  if (j-i>0) and (j-i<=n) then sumabs:=sumabs+abs(a[j-i,n-j+1]);
  if sumabs<minsum then minsum:=sumabs;
 end;
writeln('Минимум среди сумм модулей элементов диагоналей, паралл побочной=',minsum);
end;
 
 
 
begin
  randomize;
  writeln('Исходный массив: ');
  for i:=1 to n do begin
    for j:=1 to n do
      mas[i,j]:=random(100)-50;
  end;
  vivod(mas);
  writeln;
  min(mas,n,MinSum);
  summa(mas,n);
readln;
end.

function summa(a:massiv;n:integer):integer;
begin
 for j:=1 to n do
  begin
   s:=true;
   for i:=1 to n do
    if a[i,j]<0 then s:=false;
    if s=true then
   begin
    sum:=0;
    for i:=1 to n do
     sum:=sum+a[i,j];
    writeln('сумма ',j,'-го столбца = ',sum);
   end;
  end;
summa:=sum //добавь
end;

sum:=summa(mas,n);

Program ululu;
uses crt;
const n=5;
type mass=array [1..n,1..n] of integer;
 
procedure massiv(var a:mass);
var i,j:integer;
begin
writeln('Исходный массив: ');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=-10+random(100);
      write(a[i,j]:5)
     end;
    writeln
  end;
end;
 
function summa(a:mass;j:integer;var s:boolean):integer;
var i,sum:integer;
begin
s:=true;
sum:=0;
i:=1;
while(i<=n)and s do
if a[i,j]<0 then s:=false
else
 begin
  sum:=sum+a[i,j];
  inc(i)
 end;
if s then writeln('в столбце ',j,' сумма = ',sum);
summa:=sum
end;
 
 
procedure min(a:mass;var MinSum:integer);
var i,j,SumAbs:integer;
begin
minsum:=abs(a[1,1]);
for i:=n-1 downto -n+1 do
 begin
  sumabs:=0;
  for j:=1 to n do
  if (j-i>0) and (j-i<=n) then sumabs:=sumabs+abs(a[j-i,n-j+1]);
  if sumabs<minsum then minsum:=sumabs;
 end;
writeln('Минимум среди сумм модулей элементов диагоналей, паралл побочной=',minsum);
end;
 
var j,k,SumAbs,Sum:integer;
    mas:mass;
    MinSum:integer;
    s:boolean;
begin
randomize;
massiv(mas);
k:=0;
for j:=1 to n do
 begin
  sum:=summa(mas,j,s);
  if s then k:=1
 end;
if k=0 then writeln('Нет столбцов без отрицательных элементов');
min(mas,MinSum);
readln;
end.