проблема с матрицой

[onded]

Скажите плиз что не так с кодом? Программа правильно выводит матрицу, но выводит первых 3 негативных числа с каждой строчки, а по заданию сказано, что надо найти первых три негативных числа, если искать по строчкам...

program qwert;
uses crt;
var
a: array[1..7,1..4] of integer;
i,b:integer;
g:integer;
procedure izvads;
begin
 for i:= 1 to 7 do
        begin
        for b:= 1 to 4 do
        write(a[i,b],'  ');
        writeln;
        end;
end;

BEGIN
clrscr;
randomize;

for i:= 1 to 7 do
for b:= 1 to 4 do
a[i,b]:= random(101)-50;
izvads;
writeln;



i:=1;
repeat
        g:=0;
        for b:=1 to 4 do
                begin
                if a[i,b]<0 then
                          begin
                         write(a[i,b],'  ');
                          g:=g+1;
                         if g=3 then break;
                          end;
                 end;
i:=i+1;
writeln;
until
i=8;



readkey;
end.

[plato]

уточни задание

[alex_fcsm]

Негативные)) надо думать отрицательные

program qwert;
uses crt;
var
a: array[1..7,1..4] of integer;
i,b:integer;
g:integer;
procedure izvads;
begin
 for i:= 1 to 7 do
        begin
        for b:= 1 to 4 do
        write(a[i,b],'  ');
        writeln;
        end;
end;

BEGIN
clrscr;
randomize;

for i:= 1 to 7 do
for b:= 1 to 4 do
a[i,b]:= random(101)-50;
izvads;
writeln;


g:=0;
i:=1;
repeat
        for b:=1 to 4 do
                begin
                if a[i,b]<0 then
                          begin
                         write(a[i,b],'  ');
                          g:=g+1;
                         if g=3 then break;
                          end;
                 end;
if g>=3 then exit;
i:=i+1;
writeln;
until
i=8;
readkey;
end.

[]Wowan[]

Помоему там будет проще всего

g:=0;
i:=0;
for i:=1 to 4 do
 for b:=1 to 7 do
  begin
  if g<3 then
   begin
   if a[b,i]<0 then
   begin 
    write(a[b,i],'  ');
    g:=g+1;
   end;
  end;
i:=i+1;
writeln;
readkey;
end.

[onded]

спс за помощь) а то совсем не мог понять как исправить)))

[]Wowan[]

Да ладно всегда пожалуйста