напишите программу лотерея

uses crt;
const n=36;
      m=6;
      k=10;
var a:array[1..k,1..m] of byte;
    b,c:array[1..n] of byte;
    i,j,l,x:integer;
    mn:set of byte;
begin
clrscr;
randomize;
for i:=1 to n do
b[i]:=i;
for i:=1 to n do
c[i]:=0;
for i:=1 to k do
 begin
  mn:=[];
  for l:=1 to m do
    begin
     repeat
      x:=random(n)+1;
      if not(x in mn) then a[i,l]:=x;
      c[x]:=c[x]+1;
     until not(x in mn);
     mn:=mn+[x];
    end;
 end;
writeln('Результаты тиражей:');
for i:=1 to k do
 begin
  write(i:2,'  ');
  for j:=1 to m do
  write(a[i,j]:3);
  writeln;
 end;
writeln;
writeln('Частота выпадения номеров:');
write('Номер:');
for i:=1 to 18 do
write(b[i]:3);
writeln;
write('Кол-во');
for i:=1 to 18 do
write(c[i]:3);
writeln;
write('Номер:');
for i:=19 to 36 do
write(b[i]:3);
writeln;
write('Кол-во');
for i:=19 to 36 do
write(c[i]:3);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if c[i]<c[j] then
 begin
  x:=c[i];
  c[i]:=c[j];
  c[j]:=x;
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln;
writeln('Самые выпадаемые числа:');
write('Номер:');
for i:=1 to m do
write(b[i]:3);
writeln;
write('Раз:  ');
for i:=1 to m do
write(c[i]:3);
readln
end.