Получить из массива А матрицу, по k элементов в строке. Недостающие элементы заменить 0 - Turbo Pascal

Const nmax=100;
Var A:array[1..nmax] of integer;
    k,m,i,j:integer;
Begin 
    Randomize;
    Repeat
     write('Введите m: ');
     readln(m);
    Until (m>0)and(m<=nmax);
    writeln('Массив');
    For i:=1 to m do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    Repeat
     write('Введите k: ');
     readln(k);
    Until (k>0)and(k<m);
    writeln('Матрица');
    For i:=1 to m do
    Begin
      write(A[i]:4);
      if i mod k = 0 then writeln;
      j:=i;
    End;
    while (j mod k <> 0) do
    Begin
      write('0':4);
      j:=j+1;
    End;
    readln;
End.