Ошибка в вводе матрицы

[Do_it2night]

задание:Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти строку, в которой меньше всего чисел, кратных 7, и заменить все элементы этой строки их квадратами.

вот код,укажите пожалуйста ошибку:

program 1;

var
n,m,l,nom,min,i,j :integer ;
c :array [1..100,1..100] of integer;

begin
writeln (' введите размер матрицы')
readln (n,m);
writeln ('введите матрицу')
for i:=1 to n do
begin
min:= high(min);
l:=0;
for j:=1 to m do
begin
read (c[i,j]);
end;
for i:=1 to n do
begin
nom:=0;
for j:=1 to m do
begin
if c[i,j] mod 7=0 then
l:=l+1;
if l<min then
min:=l;
nom:=i;
end;
end;
end;
for j:=1 to m do
c[i,j]:=c[nom,j]*c[nom,j];
for i:=1 to n do
begin
for j:=1 to m do
write (c[i,j],' ');
writeln;
end;
end.

[GetMax]

вот код,укажите пожалуйста ошибку:

Какую ошибку выдает?

min:= high(min);

Что вы этим хотели сказать?

[0479]

У вас здесь малость бардак в циклах.Матрица некорректно вводится. Если никто не сделает то посмотрю исправлю.

[Do_it2night]

Сообщение от GetMax

Какую ошибку выдает?

никакую не выдает,просто не вводится

Сообщение от GetMax

min:= high(min);

Что вы этим хотели сказать?

наибольшее присваиваю

[Do_it2night]

Сообщение от 0479

У вас здесь малость бардак в циклах.Матрица некорректно вводится. Если никто не сделает то посмотрю исправлю.

спасибо большое

[mss]

> наибольшее присваиваю

Наибольшее ты присвоил 32767.
Ура ?

[a9N2k]

program lamp;
var
i,j,n,m,temp,min,imin :integer ;
c :array [1..100,1..100] of integer;
begin
min:=10;
temp:=0;
imin:=0;
writeln ('введите размер матрицы');
readln(n,m);
writeln ('введите матрицу');
for i:=1 to n do
    begin
      for j:=1 to m do
         begin
           Writeln('Введите элемент строки: ',i,' столбца: ',j);
           Readln(c[i,j]);//вводим элементв
           if c[i,j] mod 7 = 0 then 
              begin
                 temp:=temp+1;//делится ли он на 7?
               end;
          end;
       if min>=temp then //ищем строку с мин.содержанием
              begin
                min:=temp;
                imin:=i;
                //заменяем элементы этой строки квадратами
                for j:=1 to m do
                    begin
                      c[i,j]:=sqr(c[i,j]);
                    end;
               end;
         
       temp:=0;
    end;
Writeln('Номер строки: ',imin);
for j:=1 to m do write(c[imin,j],' ');
writeln;
end.

[Do_it2night]

большое вам спасибо)