Анимация в Crt Опции

[kojan]

Мне надо сделать из исходной программы чтобы честицы отталкивались от краёв экрана и мезду собой!
Исходная задача:

Код

Uses Crt;
var
x,y:array[1..100] of integer;
N,i:integer;
begin
 ClrScr;
 n:=4;
 randomize;
 For i:=1 to N do begin
   x[i]:=random(79);
   y[i]:=random(50);
 end;
 Repeat
 For i:=1 to N do begin
   x[i]:=x[i]+random(3)-1;
   y[i]:=y[i]+random(3)-1;
   If x[i]>79 Then x[i]:=79;
   If y[i]>50 Then x[i]:=50;
   If x[i]<1 Then x[i]:=1;
   If y[i]<1 Then y[i]:=1;
 end;
 For i:=1 to N do begin
   TextColor(random(3));
   GoToXY(x[i],y[i]);
   Write('^');
   Delay(2500);
   ClrScr;
 end;
 Until KeyPressed;
 Readln;
end.

буду очень благодарен за помощь.

Код в теги!

Сообщение отредактировано: Oleg_Z - 6.02.2005 16:07

[kojan]

Код

var
x,y:array[1..100] of integer;
N,i,s:integer;
begin
 ClrScr;
 n:=4;
 randomize;
 For i:=1 to N do begin
   x[i]:=random(79);
   y[i]:=random(50);
 end;
 Repeat
 For i:=1 to N do begin
   Repeat
     s:=x[i];
     x[i]:=x[i]+random(3)-1;
   Until x[i]<>s;
   repeat
     s:=y[i];
     y[i]:=y[i]+random(3)-1;
   until y[i]<>s;
   If x[i]>79 Then x[i]:=79;
   If y[i]>50 Then x[i]:=50;
   If x[i]<1 Then x[i]:=1;
   If y[i]<1 Then y[i]:=1;
  end;
 For i:=1 to N do begin
   TextColor(3);
   GoToXY(x[i],y[i]);
   Write('^');
   Delay(200);
 end;
 Clrscr;
 Until KeyPressed;
 Readln;
end.

Вот это исправленная версия! Мне надо чтобы частицы оталкивались друг от друга!