Двумерные массивы. (Pascal ABC)

[synthmaniac]

Добрый вечер. Помогите с задачкой пожалуйста. Заранее благодарен

Ввести двумерный массив ANxM, вывести его. Определить в какой
строке больше положительных элементов: в той которая содержит макси-
мум, или в той, которая содержит минимум. В строке, где положительных
элементов больше каждый из положительных элементов возвести в квад-
рат.

[Stilet]

Просто ввод массива сделать сможешь?

[newerow1989]

const n=10;
      m=12;
var a:array[1..n,1..m] of integer;
    i,j,imin,imax,jmin,jmax,c1,c2:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         a[i,j]:=-50+Random(101);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   imin:=1;
   jmin:=1;
   imax:=1;
   jmax:=1;
   For i:=1 to n do
      For j:=1 to m do
      begin
         If a[imin,jmin]>a[i,j] then
         begin
            imin:=i;
            jmin:=j;
         end;
         If a[imax,jmax]<a[i,j] then
         begin
            imax:=i;
            jmax:=j;
         end;
      end;
   Writeln(imin,' ',jmin,'  ',a[imin,jmin]);
   Writeln(imax,' ',jmax,'  ',a[imax,jmax]);
   c1:=0;
   c2:=0;
   For j:=1 to m do
   begin
      If a[imin,j]>0 then
         c1:=c1+1;
      If a[imax,j]>0 then
         c2:=c2+1;
   end;
   Writeln(c1,' ',c2);
   If c1>c2 then
      Writeln(imin,' str') else
   If c1<c2 then
      Writeln(imax,' str') else
      Writeln('===');
   Readln;
end.

Сойдет?