Дана квадратная матрица А порядка n. Найдите номер строки матрицы, в которой больше всего единичных элементов.

[JMS]

Разработайте алгоритм и программу, реализующую этот алгоритм.
Исходные данные вводите из текстового файла. Результаты работы программы также поместите в текстовый файл.
Функции программы, оформленные в виде процедур и функций, поместите в отдельный модуль.

Вводится с текстового файла матрица нормально, однако процедуры поиска программой игнорируются и пропускаются, просьба помочь.

Unit lab8_U;
Interface
uses
crt;
 procedure vvodM(var a:array[0..10,0..10]of integer;n:integer);
 procedure opred(var  s:array [0..10] of integer;a:array[0..10,0..10] of integer);
 procedure poisk(var  s:array [0..10] of integer;a:array[0..10,0..10] of integer;imax:integer);
 procedure vivodm(var imax:integer);
Implementation
 
procedure vvodm(var a:array[0..10,0..10]of integer;n:integer);
var
i,j:integer;
fin:text;
begin
assign(fin,'lab8.txt');
reset(fin);
 readln(fin,n);
 for i:=1 to n do
  begin
   for j:=1 to n do
   read(fin,a[i,j]);
   readln(fin);
  end;
   close(fin);
 end;
 
  procedure opred(var  s:array [0..10] of integer;a:array[0..10,0..10] of integer);
  var
  i,j,n:integer;
  begin
    for i:=1 to n do
   begin
    for j:=1 to n do
     if (a[i,j] = 1) then inc(s[i]);
   end;
  end;
 
  procedure poisk(var  s:array [0..10] of integer;a:array[0..10,0..10] of integer;imax:integer);
  var
 
  i,j,n:integer;
 
  begin
   for i:=1 to n do if (s[i] > s[i+1]) then imax:=i;
  end;
 
 
  procedure vivodm(var imax:integer);
  var
s:array[0..10]of integer;
i,j,n:integer;
fout:text;
begin
 assign(fout, 'lab8out.txt');
 begin
 rewrite(fout);
 end;
   write(fout,imax);
   writeln(fout);
 end;
 
end.

program test;
uses
crt,lab8_U;
var
  a:array [0..10,0..10] of integer; 
  i,j,n,imax : integer;
  s:array [0..10] of integer; 
begin
 vvodM(a,n);
 opred(s,a);
 poisk(s,a,imax);
 vivodM(imax);
 writeln('Nomer stroki s naib. chislom edinichnih elementov');
 WriteLn(imax);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
и просьба не использовать тег [PHP] для оформления паскалевского кода..

Модератор.

[Zer0]

Вся проблема в том, что число N в Ваших процедурах не определено (почему вы его не передаете как параметр, как сделано в процедуре vvodm?)
А вообще лучше бы это оформить не процедурой, а функцией