Найти столбец с наибольшим количеством положительных элементов - программа с меню

const
  n=7;
var
  a: array[1..n,1..n] of integer;
  i,j,s,jmax,max: byte;
begin
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(71)-35;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  max:=0; jmax:=1;
  for i:=1 to n do
    if a[i,1]>0 then inc(max);
  writeln('В 1-м столбце ',max,' положительных элементов');
  for j:=2 to n do
  begin
    s:=0;
    for i:=1 to n do
      if a[i,j]>0 then inc(s);
    if s>max then
    begin
      max:=s;
      jmax:=j;
    end;
    writeln('В ',j,'-м столбце ',s,' положительных элементов');
  end;
  writeln('Столбец с максимальным количеством положительных: ',jmax);
end.

const
  n=7;
type
  tar=array[1..n,1..n] of integer;
procedure init(var a: tar);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(71)-35;
end;
procedure output(a: tar);
var i,j: byte;
begin
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
procedure find(a: tar);
var i,j,s,jmax,max: byte;
begin
  max:=0; jmax:=1;
  for i:=1 to n do
    if a[i,1]>0 then inc(max);
  writeln('В 1-м столбце ',max,' положительных элементов');
  for j:=2 to n do
  begin
    s:=0;
    for i:=1 to n do
      if a[i,j]>0 then inc(s);
    if s>max then
    begin
      max:=s;
      jmax:=j;
    end;
    writeln('В ',j,'-м столбце ',s,' положительных элементов');
  end;
  writeln('Столбец с максимальным количеством положительных: ',jmax);
end;
 
var
  a: tar;
begin
  init(a);
  output(a);
  find(a);
end.

var
  a: tar;
  ch: char;
begin
  repeat
    init(a);
    writeln('Чтобы вывести массив на экран - нажмите 1');
    writeln('Чтобы найти столбец с максимальных количеством положительных - нажмите 2');
    writeln('Чтобы выйти из программы - нажмите 0');
    readln(ch);
    case ch of
      '0': break;
      '1': output(a);
      '2': find(a);
    end;
  until ch='0';
end.