Получить действительную квадратную матрицу, элементами которой являются числа на диагоналях, параллельных побочной

program z15_29_691v;
       const nmax=8;
  var  mat:array [1..nmax,1..nmax] of integer;
      k,n,i,j:byte;
      
      
       begin
        k := 1;
        i := 1;
        j := 1;
        mat[i, j] := k;
        repeat
         if j < n then {вправо}
           begin
            inc(j);
            inc(k);
            mat[i, j] := k;
           end
         else
          begin
           inc(i); {вниз}
           inc(k);
           mat[i, j] := k;
          end;
        while (j > 1) and (i < n) do
         begin
          dec(j);{диагональ низ-лево}
          inc(i);
          inc(k);
         mat[i, j] := k;
         end;
        if i < n then
         begin
          inc(i); {вниз}
          inc(k);
         mat[i, j] := k;
         end
        else
         if j < n then
          begin
           inc(j); {вправо}
           inc(k);
           mat[i, j] := k;
          end;
        while (i > 1) and (j < n) do
          begin
           dec(i);{диагональ право-вниз}
           inc(j);
           inc(k);
           mat[i, j] := k;
          end;
        until (i = n) and (j = n);{конец правый нижний угол}
      begin
        for i := 1 to n do
         begin
            for j := 1 to n do
            write(mat[i, j]:4);
            writeln;
         end;
      end;
readln;
     end.

uses crt;
const n=8;
var a:array[1..n*n] of real;
    b:array[1..n,1..n] of real;
    i,j,k,l:integer;
begin
clrscr;
randomize;
writeln('Данная последовательность A:');
for i:=1 to n*n do
 begin
  a[i]:=10*random;
  write(a[i]:8:2)
 end;
writeln;
writeln('Матрица по условию:');
k:=0;
For l:=1 to 2*n-1 do{количество диагоналей, параллелных побочной}
 begin
  if l>n then{выше диагонали}
   begin
    if not odd(l) then
    for i:=l-n+1 to n do
     begin
      inc(k);
      b[i,l-i+1]:=a[k]
     end
    else
    for i:=n downto l-n+1 do
     begin
      inc(k);
      b[i,l-i+1]:=a[k]
     end
   end
  else if l<=n then{ниже диагонали и на ней}
   begin
    if not odd(l) then
    for i:=1 to l do
     begin
      inc(k);
      b[i,l-i+1]:=a[k]
     end
    else
    for i:=l downto 1 do
     begin
      inc(k);
      b[i,l-i+1]:=a[k]
     end
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:6:2);
  writeln;
 end;
readln
end.