Задан массив X размером N. СФормировать из него матрицу A, содержащую по L элементов в строке. недостающие элементы в строке (если такие будут) заполнить единицами. напечатать матрицу по строкам — Pascal(Паскаль)

uses crt;
const max=100;
var x:array[1..max] of integer;
    a:array[1..max,1..max] of integer;
    n,m,l,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива Х до ',max,' N=');
readln(n);
until n in [1..max];
repeat
write('Количество столбцов матрицы А до ',max-1,' L=');
readln(l);
until l in [1..max-1];
writeln('Массив Х:');
for i:=1 to n do
 begin
  x[i]:=random(40)+10;
  write(x[i],' ');
 end;
if n mod l<>0 then
 begin
  m:=n;
  for i:=m+1 to m+l-(m mod l) do
   begin
    n:=n+1;
    x[n]:=1;
    write(x[i],' ');
   end;
 end;
writeln;
k:=n div l;
writeln('Матрица А:');
for i:=1 to k do
 begin
  for j:=1 to l do
   begin
    a[i,j]:=x[l*(i-1)+j];
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.