График в паскале ABC

[Amerikano]

Помогите пожалуйста построить график в PascalABC зависимости температуры T от шага по времени tau.

program teplo;
uses crt;
var
T, alf, bet: array[1..500] of real;
i, j, N:integer;
ai, bi, ci, di: real;
lamda, ro, c, h, tau, r: real;
Tl, T0, Tr, L, t_end, time: real;
  begin
  clrscr;
  Write('Vvedite kolichestvo prostranstvennyh uzlov(kolvo sloev) , N=');
  Read(N);
  Write('L=');{dlina plastiny}
  Read(L);
  Write('Vvedite okonchanie po vremeni, t_end=');
  Read(t_end);
  Write('Vvedite nachalnuyu temperaturu, T0=');
  Read(T0);
  Write('Vvedite temperaturu na granitse x=0, Tl=');
  Read(Tl);
  Write('Vvedite temperaturu na granitse x=L, Tr=');
  Read(Tr);
h:=L/(N-1);
r:=1;
tau:=h*h*r;
for i:= 1 to N do
T[i]:=0;
time:=0;
while time<t_end do
begin
time:=time+tau;
alf[1]:=0;
bet[1]:=Tl;
for i:= 2 to N-1 do
begin
ai:=tau/(h*h);
bi:=1-2*r;
ci:=tau/(h*h);
di:=-T[i];
alf[i]:=-(Ci/(Ai*alf[i-1]+Bi));
bet[i]:=(Di-Ai*bet[i-1])/(Ai*alf[i-1]+Bi);
end;
T[N]:=Tr;
for i:= N-1 downto 1 do
T[i]:=alf[i]*T[i+1]+bet[i];
end;
Writeln('Chislo uzlov po N = ',N);
Writeln('Nachalnaya temperatura T0 = ',T0:6:4);
Writeln('Temperatura na granitse x = 0, Tl = ',Tl:6:4);
Writeln('Temperatura na granitse x = L, Tr = ',Tr:6:4);
Writeln('Rezultat poluchen s shagom po koordinate h = ',h:6:4);
Writeln('Rezultat poluchen s shagom po vremeni tau = ',tau:6:4);
Writeln('Temperaturnoe pole v moment vremeni t = ',t_end:6:4);
for i:=1 to N do
writeln('Tolshina= ',h*(i-1):6:3,'|T=  ',T[i]:8:5);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.