Заполнить матрицу по образцу

uses crt;
type
matr=array [1..100,1..100] of real;
mass=array [1..100] of integer;
var
a:matr;
b:mass;
i,j,k,ar,n:integer;
begin
clrscr;
repeat
writeln('Заполнить массив a1..an автоматически(1) или вручную(2)?');
readln(ar);
until (ar=1) or (ar=2);
if ar=1 then
 begin
  writeln('Введите размерность массива: ');
  read(n);
  randomize;
  for k:=1 to n do
   begin
    b[k]:=random(10);
    write(b[k],' ');
   end;
 end
else
if ar=2 then
 begin
 write('Введите размерность массива: ');
 readln(n);
 for k:=1 to n do
  read(b[k]);
 end;
 
writeln;
writeln;
 
for i:=1 to n do
begin
  for j:=1 to n do
  begin
 
   a[1,j]:=b[j];
   a[i,1]:=b[i];
 
   if (i+j=n+1) then
   a[i,j]:=b[k];
 
  end;
end;
 
for i:=1 to n do
 begin
  for j:=1 to n do
 write(a[i,j]:3:0);
 writeln;
end;
end.

uses crt;
const nmax=15;
var a:array[1..nmax] of integer;
    b:array[1..nmax,1..nmax] of integer;
    n,i,j,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  b[1,i]:=a[i];
 end;
writeln;
for i:=2 to n do
 begin
  x:=b[i-1,1];
  for j:=1 to n-1 do
  b[i,j]:=b[i-1,j+1];
  b[i,n]:=x;
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln;
 end;
readln
end.