Текст задания

Необходимо создать массив цифр от нуля до восьми в виде матрицы 3*3 через команду Random. Заполнить эту матрицу цифрами без повторения. Далее расставить в матрице цифры от минимального к максимальному (в центре 0, в левом верхнем углу 1 и далее по часовой стрелке.

Исходный код программы

Program Matrix;
uses crt;
var
i,j,k,l,m,im,jm:integer;
a:array [1..9,1..9] of integer;
b:array [1..9] of integer;
flag:boolean;
begin
for i:=1 to 10 do b[i]:=10;
randomize;
clrscr;
Writeln('ishodnaya matrica:');
m:=1;
For i:=1 to 3 do
  begin
   for j:=1 to 3 do
    begin
    flag:=true;
      while flag=true do
       begin
       flag:=false;
	l:= random(9);
	for k:=1 to 9 do
	 begin
	  if b[k]=l then flag:=true;
	 end;
       end;
      b[m]:=l;
      m:=m+1;
      a[i,j]:=l;
      Write(l,' ');
    end;
   writeln;
 end;
For j:=1 to 9 do
 begin
 m:=b[1];
  For i:=1 to 9 do
    if b[i]<=m then begin m:=b[i]; im:=i; end;
 case j of
  1: a[2,2]:=m;
  2: a[1,1]:=m;
  3: a[1,2]:=m;
  4: a[1,3]:=m;
  5: a[2,3]:=m;
  6: a[3,3]:=m;
  7: a[3,2]:=m;
  8: a[3,1]:=m;
  9: a[2,1]:=m;
 end;
 b[im]:=10;
end;
Writeln('Rezultat:');
For i:=1 to 3 do
 begin
  For j:=1 to 3 do
   begin
    Write(a[i,j],' ');
   end;
  Writeln;
 end;
readln;
end.

Результат выполнения программы