Минимумы строки матрицы.

[Nicko_mt]

Доброго времени суток. Возникла мелкая ошибка в программе. Нужно вычислить минимум каждой строки матрицы но учесть что элементы =-1 в расчёт не берутся. Вычисляет вроди верно но первый минимум т.е первой строки всё равно ставит как -1.А вот далее верно вычисляет.Не могу понять в чём ошибка.Помогите разобраться.Заранее благодарен.

const row=100;col=row;
var a:array[1..row,1..col] of integer;
i,j,n,m,min:integer;
begin
 randomize;
writeln('Vvedite razmer matrici');
 readln(n);
  m:=n;
  for i:=1 to n do
    for j:=1 to m do
     if j>i then
      begin
        a[i,j]:=random(100);
      end
  else if i=j then
      begin
         a[i,j]:=-2;
      end
  else  begin
         a[i,j]:=random(100);
          end;

i:=1;
while (i<=n) do
  begin
   min:=a[i,1];
    for j:=2 to m do
      begin
       if  (a[i,j]<>-2)and(a[i,j]<min) then
         begin
           min:=a[i,j];
         end;
end;
        i:=i+1;
          writeln(min);
    end;
for i:=1 to n do
      begin
          for j:=1 to m do
            write(a[i,j]:4) ;
      writeln;
end;
  readln;
  end.

[Step_UA]

i:=1;
while (i<=n) do
  begin
   min:=a[i,1];

не проверяется значение первого элемента, а его значение принимается как минимум. в первой строке на этом месте и стоит -2

... зачем так много конструкций begin ... end - внутри находится только один оператор, значит можно опустить ...

[JUDAS]

Step_UA, все правильно, только если он поставит for j:=1 to m do ничего не поможет.
Перед поиском минимального, он заполняет диагональ значегием -2

if i=j then
      begin
         a[i,j]:=-2;
      end

Посему, условие
if (a[i,j]<>-2)and(a[i,j]<min) then
будет игнорироватся для первого ряда так как минимум = -2 и ни одно значение в массиве не будет меньше -2.
(потому что, полагаю что матрица заполненна положительными числами, роаз -2 выбран в качестве метки "пустое значение")

[Step_UA]

JUDAS, я не писал что делать, а лишь указал из-за чего

Не могу понять в чём ошибка

[JUDAS]

ошибка у него в том что строка min:=a[i,1]; должна выглядеть min:=MinInt; или min:=-10000

[Step_UA]

ошибка у него в том что строка min:=a[i,1]; должна выглядеть min:=MinInt; или min:=-10000

не путайте человека, min на начальном этапе должен быть не меньше максимального элемента и просматриваться все элементы строки, т.к. генерируется случайные числа до 100 то

 min:=100;
    for j:=1 to m do

[JUDAS]

не путайте человека

согласен, с минусом лажанулся

[Nicko_mt]

Спасибо за ответы на поставленный вопрос. Решил проблему добавлением дополнительных проверок.