Программа для построения изотермы Ван-дер-Ваальса - Free Pascal

program izoterma;
uses graph;
var ms,q,w,m:longint;
i,j:integer;
a,b1,dv,v,t,p,r:double;
begin
initgraph(i,j,' ');
i:=getmaxx;
j:=getmaxy;
                        begin                      ''здесь рисуется координатная сетка
                        q:=51;
                        w:=j-50;
                        line(q,0,q,j);
                        line(0,w,i,w);
                        setcolor(7);
                        m:=80;
                        while q<1400 do
                        begin
                        line(q+m,0,q+m,w);
                        q:=q+m;
                        end;
                        while w>0 do
                        begin
                        line(51,w-m,i,w-m);
                        w:=w-m;
                        end;
                        end;
a:=3.5;
b1:=5;
R:=8.31;
dv:=0.001;
V:=10;
T:=280;
moveto(51,j-50);
 while b1