сделать программу Звездопад из *

[varag]

начал изучать паскаль программа должна зделать из этого *-звездопад но чтоб был цвет фона и звезд у меня не получается скажите мои ошибки и правильную программу:

program p2;
var a,i,j:integer;
begin
repeat;
i:=random(80);
j:=random(48);
gotoxi(i,j);
texcolor(random(16));
write('*');
until krupresseb;
textbactgraund(blui);
end.

[abit]

Сообщение от varag

начал изучать паскаль программа должна зделать из этого *-звездопад но чтоб был цвет фона и звезд у меня не получается скажите мои ошибки и правильную программу:
program p2;
var a,i,j:integer;
begin
repeat;
i:=random(80);
j:=random(48);
gotoxi(i,j);
texcolor(random(16));
write('*');
until krupresseb;
textbactgraund(blui);
end.

сходу вижу... g̶o̶t̶o̶x̶i̶ надо gotoxy, t̶e̶x̶c̶o̶l̶o̶r̶ надо textcolor, until k̶r̶u̶p̶r̶e̶s̶s̶e̶b̶; надо keypressed, t̶e̶x̶t̶b̶a̶c̶t̶g̶r̶a̶u̶n̶d̶(̶b̶l̶u ̶i̶)̶;̶ надо textbackground(blue); "repeat;" зачем там ";"? textbackground бесмысленно делать в конце... ну и плюс uses crt напрашивается, сомневаюсь, что это вообще ваше творчество, даже содрать что ли нормально не смогли?
с учётом моих замечаний:

program p2;
uses crt;
var a,i,j:integer;
begin
textbackground(blue);
repeat
i:=random(80);
j:=random(48);
gotoxy(i,j);
textcolor(random(16));
write('*');
until keypressed;
end.

[abit]

тот же код упрощённо:

uses crt;
begin
     textbackground(blue);
     repeat
           gotoxy(random($50),random($30));
           textcolor(random($f));
           write('*');
     until keypressed;
end.