Изобразить траектория движения заряда

Program electr;
Uses graphABC;
Var n,x1,x2,y1,y2,q1,q2,gd,gm ,a: integer;
    G,a2,r,ax,ay,x,y,v2x,v2y,t,dt,m2,v2,k,l : real;
Begin
    //Clrscr;
    Write('ввести заряд q1, координаты x1, y1, шаг по времени, цвет');
    Readln(q1,x1,y1,dt,n);
Write('ввести заряд q2, координаты x2, y2, массу, скорость нач. v2, угол между v2 и y');
    Readln(q2,x2,y2,m2,v2,a);
    a2:=(a*pi)/180;
    k:=9000000000.0;        {Н∙м2/Кл2}
    gd:=detect; gm:=detect;
    initgraph(gd,gm,'');
    setcolor(n);    circle(x1,y1,6);    circle(x2,y2,2);    {диаметры}
    g:=9.8; 
    t:=0;
    x:=x2;
    y:=y2;
    moveto(round(x), round(y));
    v2x:=v2*sin(a2);    v2y:=v2*cos(a2);
    line(x2,y2,trunc(x2+v2x*10),trunc(y2+v2y*10));  {направл. нач. скор.}
    while(x<getmaxx) or (y<getmaxy) do
        begin
            if v2=0 then begin
            {r:=sqr(x10x)+sqr(y1-y));}  {квадрат расстояния}
            ax:=k*q1*q2/(m2*sqr(x1-x));
            ay:=(k*q1*q2)/(m2*sqr(y1-y));
            x:=x2+(ax*sqr(t)/2);
            y:=y2-(ay*sqr(t)/2);
            t:=t+dt;
            end;
            if v2<>0 then begin
            {r:=sqr(x10x)+sqr(y1-y));}  {квадрат расстояния}
            ax:=k*q1*q2/(m2*sqr(x1-x));
            ay:=(k*q1*q2)/(m2*sqr(y1-y));
            x:=x2+(v2x*t)+(ax*sqr(t)/2);
            y:=y2+(v2y*t)-(ay*sqr(t)/2);
            if (x>getmaxx) or (x<0) or (y>getmaxy) or (y<0) then exit;
            t:=t+dt;
            end;
        lineto(trunc(x), trunc(y));
        readln;
        end;
    readkey;
    closegraph;
end.