Даны действительные числа A1, ..., An, действительная квадратная матрица порядка n (n>=6). Получить действительную матрицу размера n´(n+1), вставив

uses crt;
var
a: array[1..10,1..11] of integer;
b: array[1..10] of integer;
i,k,n,j: integer;
 
begin
write('Введите размерность матрицы, не больше 10 и не меньше 6 : ');
repeat
read(n);
until (n>=6) and (n<11);
 
writeln('Введите элементы одномерного массива:');
for k:=1 to n do begin
read(b[k]);
end;
 
writeln('Для вывода результата нажмите ENTER...');
readln;
clrscr;
 
write('Исходная матрица:');
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
 
for j:=n+1 downto 6 do begin
for i:=1 to n do begin
a[i,j+1]:=a[i,j];
end;
end;
 
for i:=1 to n do begin
a[i,6]:=b[i];
end;
 
writeln;
writeln('Полученная матрица:');
for i:=1 to n do begin
for j:=1 to n+1 do begin
write(a[i,j]:4);
end;
writeln;
end;
end.

uses crt;
var i,j,k,k1,n,m: integer;
    a: array [1..7,1..7] of real;
begin
 clrscr;
 n:=6;
 m:=6;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3:2,' ');
    end;
   writeln;
  end;
  k1:=5;
    for i:= 1 to n do
     for j:= n downto k1+1 do
      a[i, j+1]:= a[i,j];
  writeln('Введите числа от 1 до ',n);
  for i:= 1 to n do
    readln(a[i,k1+1]);
  Inc(m);
   writeln;
  for i:=1 to n do
   begin
   for j:=1 to m do
     write(a[i,j]:3:2,' ');
   writeln;
   end;
 readln;
end.

a: array[1..10,1..12] of integer;