Работа с двумерными массивами., процедуры Опции

[Jangle]

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

Uses Crt;
type
    mas=array [1..100,1..100] of integer;
    mass=array [1..100] of integer;
var
   q,w:integer;k:byte;l:mas;S:mass;
procedure vvod(n,m:integer;var A:mas);
var
   i,j:integer;
begin
  ClrScr;
  Randomize;
  Textcolor(white);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          A[i,j]:=Random(100);
          A[i,j]:=A[i,j]-random(290);
        end;
    end;
  Textcolor(green);
  Writeln('MACCUB:');
  For i:=1 to n do
   For j:=1 to m do
     begin
       Write(a[i,j]:5,'     ');
       If j=m then WriteLn;
     end;
  end;
procedure obr (n,m:integer;a:mas; var b:mass);
var
   i,j,x:integer;
begin
  j:=1;
  while j<=m do
    begin
      for i:=n downto 1 do
        if A[i,j]>0 then x:=A[i,j];
      b[j]:=X;
      j:=j+1;x:=0;
    end;
end;
procedure vivod (m:integer;b:mass);
var
   j:integer;
begin
ClrScr;
 for j:=1 to m do
   if b[j]=0 then WriteLn('HET POLOZITELNYX B ',j,'Ctolbche')
   else Writeln(j,'Ctolbech=',b[j]);
end;

begin
ClrScr;
Writeln('Pazmernost:');
Read(q,w);
Repeat
Writeln('1-BBOD');
Writeln('2-OBRAB');
Writeln('3-vivod');
Writeln('4-exit');
Writeln('vibor:');
Read(k);
case k of
1:vvod(q,w,l);
2:obr(q,w,l,S);
3:vivod(w,S);
4:halt;
end;
until k>4;
Readkey;
end.
ReadKey;
end.

Подскажете в чем ошибка... При выполнении задачи вылетает и пишет,что ошибка 202 (Переполнение стека). Как исправить? В чем ошибка? Заранее спасибо...

Сообщение отредактировано: Jangle - 18.03.2007 20:03