Даны действительные числа a1,...,a64.Получить действительную квадратную матрицу порядка 8

Uses crt;
const n=8;
var a:array[1..n,1..n] of integer;
    i,j:integer;
 begin
 clrscr;
 writeln('Vvedite elementu matrici');
 for i:=1 to n do
  begin
  for j:=1 to n do
  readln(a[i,j]);
  end;
 for i:=1 to n do
  begin
  for j:=1 to n do
  write(a[i,j]:4,' ');
    writeln;
end;
readln;
readln;
end.

Uses crt;
const n=8;
var a:array[1..n,1..n] of integer;
    i,j:integer;
 begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to n do
  a[i,j]:=random(100);
 for i:=1 to n do
  begin
  for j:=1 to n do
  write(a[i,j]:4,' ');
    writeln;
end;
readln;
end.

uses crt;type mat=array[1..50,1..50]of longint;
var a:mat;b,i,j:longint;
begin clrscr;for j:=1 to 8 do
if j mod 2<>0 then for i:=1 to 8 do begin
a[i,j]:=random(10);gotoxy(j+j,i);writeln(a[i,j],' ');delay(10000);end else
for i:=1 to 8 do begin a[8-i+1,j]:=random(10);gotoxy(j+j,8-i+1);
writeln(a[i,j],' ');delay(10000);end;readln;end.

uses crt;
const n=8;
var a:array[1..n,1..n] of byte;
    i,j:integer;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if odd(j) then a[i,j]:=n*(j-1)+i
    else a[i,j]:=n*j-i+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readln
end.