Массивы в паскале

[A.S.W]

Дан двумерный массив.Найдите номера первых отрицательных элементов каждой строки.

[Alex Cones]

Сделаю за 50 руб, ася ниже.

[ai\ekcah^p]

Program zad;
uses crt;
type massiv=array[1..100,1..100] of integer;
label flag;
var
mas:massiv;
i,j,m,n,num:integer;
begin
 clrscr;
 randomize;
 write('введите кол-во столбцов -> ');readln(n);
 write('введите кол-во строк    -> ');readln(m);
 for i:=1 to m do
 begin
  for j:=1 to n do
  begin
  textcolor(13);
   mas[i,j]:=random(101)-50;
   write(mas[i,j]:4);
  end;
  writeln;
 end;
 textcolor(10);
 writeln('номера первых отрицательных элементов каждой строки');
 i:=1;
 flag:
 for j:=1 to n do
 if mas[i,j]<0 then
 begin
  writeln('mas[',i,',',j,']= ',mas[i,j],' в ',i,' -ой строке ',j,'-ой элемент' );
  i:=i+1;goto flag;
 end;
 readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

flag:
 for j:=1 to n do
 if mas[i,j]<0 then
 begin
  writeln('mas[',i,',',j,']= ',mas[i,j],' в ',i,' -ой строке ',j,'-ой элемент' );
  i:=i+1;goto flag;

и до какого i у вас будет работать данный кусок?
Вот так не лучше?

for i:=1 to m do
for j:=1 to n do
 if mas[i,j]<0 then
 begin
  writeln('mas[',i,',',j,']= ',mas[i,j],' в ',i,' -ой строке ',j,'-ой элемент' );
break;
end;

И еще использование меток в паскале не есть Good!

[A.S.W]

спасибо огромное обоим...работает и так и так...очень благодарен!!!