Карта звездного неба

program nebo;
uses crt,graph;
const n=500;
var a,b:integer;
    m,o:array[1..n] of integer;        { массив и переменные для     }
    mc,oc,l,k:integer;                    {  процедуры zadniifon }
 
    w,s,ww,ss:integer; g:text;         {  переменные для процедуры sozvezdiya }
 
    x,y,c:array[1..43] of integer;     {массив и переменные для }
    i,j,d:integer;                           { процедуры zvezda и mercanie}
    g1:text;
 
procedure zadniifon;
begin
mc:=getmaxX;
oc:=getmaxY;
 for k:=1 to n do
 begin
 m[k]:=random(mc);
 o[k]:=random(oc);
 end;
  repeat
  for k:=1 to n do
  begin
  l:=random(k+1);
  putpixel(m[k],o[k],l);
  end;
  until keypressed;
  end;
 
procedure sozvezdiya;
begin
assign(g,'linii.txt');
reset(g);
 while not eof(g) do
  begin
  read(g,w,s,ww,ss);
  setcolor(15);
  line(w,s,ww,ss);
  end;
  close(g);
 end;
 
procedure zvezda;
begin
assign(g1,'data.txt');
reset(g1);
i:=0;
 while not eof(g1) do
  begin
  i:=i+1;
  read(g1,c[i],x[i],y[i]);
  setcolor(1);
  setfillstyle(1,1);
  circle(x[i],y[i],3);
  floodfill(x[i]+1,y[i]+1,1);
  end;
end;
 
procedure mercanie;
begin
 for j:=1 to 100  do
  begin
     j:=random(42)+1;
     setcolor(0);
     setfillstyle(1,0);
     circle(x[j],y[j],3);
     floodfill(x[i]+1,y[j]+1,0);
     repeat a:=0
      until keypressed;
    end;
    end;
 
  begin
  initgraph(a,b,'');
  sozvezdiya;
  zvezda;
  mercanie;
  zadniifon;
  end.