Помогите с матрицами

[Сапфира]

Нужно в программе из введенных этих значениий AL = (0, 5, 2, 0, 7, 0, 4, 6, 1, 0, 3, 9, 0,0); J = (1, 2, 3, 2, 3, 3, 2, 4, 5, 4, 2, 5, 5,0) распоковать матрицу и вывести ее.Где ненулевые элементы списка AL располагаются по строкам. Элементы списка J, соответствующие нулям списка AL, определяют номера строк, описания которых начинаются со следующих позиций списков AL и J, а остальные элементы списка J соответствуют номерам столбцов ненулевых элементов текущей строки. Должна вывестись матрица А:
0 5 2 0 0
0 0 7 0 0
0 4 0 6 1
0 3 0 0 9
0 0 0 0 0
Помогите как это сделать?

[alexBlack]

Как здесь можно помочь ?. Решение подробно описано в условии.
Разве что так :

const N = 14;
const AL : array [1..N] of byte = (0, 5, 2, 0, 7, 0, 4, 6, 1, 0, 3, 9, 0, 0);
const J  : array [1..N] of byte = (1, 2, 3, 2, 3, 3, 2, 4, 5, 4, 2, 5, 5, 0);

var i, x, y:integer;

begin
   x := 1; y := 1;  // Текущая строка и столбец
   for i := 1 to N do begin
      if AL[i] = 0 then begin
         if y <> J[i] then begin
            while x <= 5 do begin
               write(0:2); inc(x);
            end;
            writeln;
            y := J[i];
            x := 1;
         end;
      end else begin
         while x < J[i] do begin
            write(0:2); inc(x);
         end;
         write(AL[i]:2);
         inc(x);
      end;
   end;
   readln;

[Сапфира]

Спасибо огромное!!!