Помогите, Паскаль, Анимация

Question

Помогите, На языке программирования Паскаль абс надо нарисовать 100 маленьких шариков и анимацию в котором шарики увеличиваются на 5х при нажатий энтер, у меня получается увеличивать только 1 шарик из 100(

user_3231338 · Accepted Answer

uses graphabc;
var i,: integer;
a: array [1..100,1..3] of integer;
procedure MyOnKeyPress (ch: char);
var i, j: integer;
begin
case ch of
#13: for i:=1 to 100 do {Enter}
for j:=2 to 5 do
begin
circle (a[i,1],a[i,2],a[i,3]*j);
sleep (100); {время задержки}
end;
#27: halt; {Escape}
end; 
end;
begin
setwindowsize (1000,700); 
setwindowtitle ('Абстракция'); 
SetPenWidth(1);
for i:=1 to 100 do
begin
a[i,1]:=20+random (960); 
a[i,2]:=20+random (660); 
a[i,3]:=2+random (6);
drawcircle (a[i,1],a[i,2],a[i,3]);
end;
OnKeyPress := MyOnKeyPress;
end.
Надеюсь, что подойдет