Работа с двумерным массивом

[Umkaa]

Организовать программу обработки двумерного массива А(6х6)
Матрица (11 ,-24,3,-43,5,1)
(-14,2,-7,18,-29,10)
(10,12,45,-7,-3,11)
(6,11,44,41,-3,4)
(19,-23,9,17,15,2)
(13,7,-10,32,5,13)
Задание. Из положительных элементов матрицы А сформировать новую, исключив все отрицательные элементы со сдвигом оставшихся влево по строкам . Строки новой матрицы с недостаточным количеством элементов дополнить нулями.

Ответ должен быть вроде как
(11.3.5.1.0.0)
(2.18.10.0.0.0)
10.12.45.11.0.0)
6.11.44.41.4.0)
13.7.32.5.13.0)

[newerow1989]

var a:array[1..6,1..6] of integer=((11,-24,3,-43,5,1),
                                   (-14,2,-7,18,-29,10),
                                   (10,12,45,-7,-3,11),
                                   (6,11,44,41,-3,4),
                                   (19,-23,9,17,15,2),
                                   (13,7,-10,32,5,13));
var i,j,k:integer;
begin
   For i:=1 to 6 do
      For j:=6 downto 1 do
         If a[i,j]<0 then
         begin
            For k:=j to 5 do
               a[i,k]:=a[i,k+1];
            a[i,6]:=0;
         end;
   For i:=1 to 6 do
   begin
      For j:=1 to 6 do
         Write(a[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.