program lab9;
               {$APPTYPE CONSOLE}
uses
  SysUtils,
  windows;

var
   m,n,k:integer;
   i,j:byte;
   a:array[1..10,1..10] of real;
   fin,fout:textfile;
   flag:boolean;
   err:integer;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  Assignfile(fin,ParamStr(1));Assignfile(fout,ParamStr(2));
  k:=0;
  try
    reset(fin);
    try
      try
        rewrite(fout);
        try
          try
             //Начало программы
             read(fin,m,n);
             writeln(fout,'Матрица: ',m,'x',n);
             for i:=1 to m do Begin
               for j:=1 to n do read(fin,a[i,j]);
               readln(fin);
             end;
             writeln(fout,'Исходная матрица: ');
             for i:=1 to m do Begin
               for j:=1 to n do write(fout,a[i,j]:5:1);
               writeln(fout,' ');
             end;
             flag:=false;
             i:=1;
             j:=1;
             while (j<=n) and not flag do Begin
                   i:=1;
                   while (i<=m) and not flag do Begin
                     if A[i,j]>0 then Begin
                       flag:=true;
                       k:=j;
                     end;
                     i:=i+1;
                   end;
                   j:=j+1;
             end;
             if flag then Begin
                writeln(fout,'Номер положительного столбца равен ',k);
             end
             else writeln(fout,'Такого столбца не существует');
             //Конец программы
             writeln('Ok. File',paramstr(2),' is ready.');
          except err:=1;
          //writeln('Ошибка при считывании или записи в файл')
          end;
        finally closefile(fout);
        end;
      except err:=2;
      //writeln('Ошибка при открытии выходного файла')
      end;
    finally closefile(fin);
    end;
  except err:=3;
  // writeln('Ошибка при открытии исходного файла',paramstr(1))
  end;
  //writeln(''); Readln;
  if (err>0) then Begin
     case err of
     1:begin
     writeln('Ошибка при считывании или записи в файл');
     readln;
     end;
     2:begin
     writeln('Ошибка при открытии выходного файла');
     readln;
     end;

     3:begin
     writeln('Ошибка при открытии исходного файла');
     readln;
     end;
     end;

  end;
end.