использование массивов!

[...Оленька...]

помогите пожалуйста решить задачу и составить блок схему!
Задан одномерный массив X размером N. Сформировать из него матрицу A, содержащую по L элементов (L<N). Недостающие элементы в последней строке (если такие будут) заполнить нулями. Напечатать матрицу по строкам.

[Teor]

Может не совсем то, что надо

program matr;
uses crt;
var mas:array[1..1000] of integer; mas1:array[1..1000,1..1000] of integer; i,j,k,n,l:integer;
begin
clrscr;
k:=0;
writeln ('Введите N и L');
readln (n,l);
for i:=1 to n do
begin
mas[i]:=-random(30)+random(30);
write (mas[i],'  ');
end;
writeln;
writeln;
for i:=1 to l do
for j:=1 to l do
if j*i<=n then
begin
k:=k+1;
mas1[i,j]:=mas[k];
end else mas1[i,j]:=0;
for i:=1 to l do
begin
for j:=1 to l do
write (mas1[i,j],'  ');
writeln;
end;
readkey
end.

[...Оленька...]

а составить блок схему поможешь!?пожалуйста!