графики амплитуды и КНИ

[DeadCrow]

здравствуйте, помогите вставить 2 графика с осями в программу у меня уже мозг ничего не соображает, запутался. Надо сделать 2 графика:
1) чтобы показывал изменения амплитуды
2) чтобы показывал изменения коэффициент нелинейных искажений (КНИ)

помогите пожалуйста, это дипломная работа, завтра предзащита, заранее спасибо

PHP код:

program diplom;
uses
crt;
var
Uvch, T, TI, Amp, Ams, K, K1, kvadrn, argums, znachsin,
 summampl, kvadrkar, sumanp, sqrpi, sqrn, otnamp, KNI : real;
        I, n, J : Integer;
        A : array [1..30] of real;
const
     pi = 3.14;
     begin
clrscr;
{объявление переменных}
for I:= 1 to 30 do
A[I] :=0;
sumanp:=0;
{ввод данных}
ReadLn (Uvch, T, TI);
{Контроль ввода исходных данных}
Amp := (4*Uvch*T)/(sqr(pi)*TI);
Ams := (2*pi*TI)/T;
K := 0.009;
n := 1;
for I:=1 to 10 do
begin
K1 := I/1000;
K := K+K1;
Writeln('prirochenie K = ',K1:4:5,' ugol naklona = ',K:4:5);
repeat
kvadrn := sqr(n);
argums := Ams*n/k;
znachsin:=sin(argums);
Writeln('nomer garmoniki = ',n);
{Расчет амплитуды n-ой гармоники}
A[n]:= (Amp*K/kvadrn)*znachsin;
WriteLn('znachenie garmoniki = ',A[n]:4:5);
Readln;
otnamp := A[n]/A[1];
WriteLn ('otnoshenie amplitudi= ',otnamp:2:3 );
n := n+2;
until
otnamp < 0.05;
{Расчет коэффициента нелинейного искажения}
for J := 3 to n do
begin
kvadrn := sqr (A[J]);
summampl := summampl+kvadrn;
end;
kvadrkar := sqrt (summampl);
KNI := kvadrkar/A[1];
WriteLn ('summa amp = ',summampl:4:5,'kvadr = ',kvadrkar:4:5,' KNI = ',KNI:4:5
);
ReadLn;
n:=1;
K:=0.009;
end;
end.