! УРАВНЕНИЕ С МАТРИЦАМИ !

[KulOle]

Короче, из начальной матрицы (10,10) надо сделать матрицу (10,?), где (?) максимальное количество положительных элементов в строке матрицы начальной (10,10).Затем все положительные элементы матрицы (10,10) вписать в матрицу (10,?) подряд.Если же положительных элементов не хватит на всю матрицу (10,?),то на пустое место вписать нули????????????? ЛЮДИ, ПОМОГИТЕ!!!!!!!

[puporev]

uses crt;
const n=10;
var a,b:array[1..n,1..n]of integer;
    i,j,k,l,max:integer;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
        begin
          a[i,j]:=random(20)-9;
          write(a[i,j]:5);
        end;
     writeln;
  end;
max:=0;
for i:=1 to n do //считаем положительные в строках и находим максимальное количество
   begin
     k:=0;
     for j:=1 to n do
     if a[i,j]>0 then inc(k);
     if k>max then max:=k;
   end;
writeln('max=',max);
for i:=1 to n do
for j:=1 to max do
b[i,j]:=0;      //обнуляем матрицу В
k:=1;l:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then //если больше ноля
  begin
    inc(l); //увеличиваем счетчик по столбцов
    b[k,l]:=a[i,j]; //записываем
    if l=max then //если конец строки матрицы В
      begin
       inc(k);//переходим на следующую
       l:=0; //обнуляем счетчик столбцов
     end;
  end;
Writeln('Rezultat:');
for i:=1 to n do
   begin
     for j:=1 to max do
     write(b[i,j]:5);
     writeln;
   end;
readln
end.

[KulOle]

пасиБО!!!!!!