Паскаль

[mistertvister]

Здрасте. при запуске пишет "неожиданный конец файла"
как исправить эту ошибку? мож чего не хватает?
uses crt;
var i, j:integer;
A :array [1..50] of real;
procedure writetextxy(x:real; y:real; text: string);
begin randomize;
for i:=1 to 50 do
a[i]:=-random(25);
for i:=1 to 50 do
begin clrscr;
for j:=1 to 80 do
writetextxy(j,a[j]+i,'*'); end;
end.

Программа: должны падать капли на экране сверху вниз.

[Greblin]

Ну дык естественно, процедура есть, а тела-то программы нет

[mistertvister]

не понятно(

[Базиля]

Отсутствует головная часть программы