Описать процедуру, формирующую по вещественному массиву A размера K матрицу B размера M Ј N

uses crt;
const max=15;
type mas=array[1..max] of real;
     mtr=array[1..max,1..max] of real;
procedure matrix(a:mas;k,m,n:integer;var b:mtr);
var i,j,p:integer;
begin
writeln('Матрица В:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[j];
    if n<k then for p:=k+1 to n do b[i,p]:=0;
    write(b[i,j]:5:2)
   end;
  writeln
 end
end;
var a:mas;
    b:mtr;
    i,k,m,n:integer;
begin
randomize;
repeat
write('Размер массива от 1 до ',max,' k=');
readln(k);
until k in [1..max];
repeat
write('Количество строк матрицы от 1 до ',max,' m=');
readln(m);
until m in [1..max];
repeat
write('Количество столбцов матрицы от 1 до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Массив А:');
for i:=1 to k do
 begin
  a[i]:=10*random;
  write(a[i]:5:2)
 end;
writeln;
matrix(a,k,m,n,b);
end.