Completely random tp

[wersas1]

program Random;
uses Crt;
begin
 procedure windoah (x1, y1, x2, y2, spalva : integer);
 begin
   Window (x1, y1, x2, y2);
   TextBackground (spalva); ClrScr;
 end;
 procedure Kiek (a, b : integer);
  var x1, y1, sp : integer;
 begin
   Randomize;
   repeat
									    x1 := Random (80 - a);
									    y1 := Random (24- ;
									    sp := Random (15);
									    Langas (x1, y1, x1 + a, y1 + b, sp);
									    Delay (500);
 until KeyPressed;
 Readln;
 end;
 begin
 windoah (1,1,80,25, Black);
 Kiek (5,2);
 Langas (1,1,80,25, Black);
 Kiek (2,2);
 Readln;
 end.

Ne pirmas ir ne paskutinis scriptas iš neturėjimo ką veikt. Random langai. Kompiliuoti su Turbo pascal.