не сохраняет изображение

помогите,пжл.
вот код программы:
uses graph,VvodZnach,Postr;
label perehod;
var eps1,eps2 : real;
dzeta1,h2 : double;
R,T : double;
Buf_Postr_Result : boolean;
Kolvo_Postr : byte;
Pereh : boolean;
Kart_1,Kart_2 : pointer;
Size : word;
{------------------------------------------------------------------}
Procedure postrgraph;
var Gd,Gm : integer;
begin
Gd:=detect;
InitGraph(Gd,Gm,'');
Size:=33000;
{построение графиков}
{1 и 2 фазы}
if Buf_Postr_Result = true then Kolvo_Postr:=Kolvo_Postr+1;
if (Buf_Postr_Result = false) or ( (Buf_Postr_Result = true) and (Kolvo_Postr = 1) ) then
begin
ClearDevice;
postr_test_raspr_1;
end
else PutImage(30,20,Kart_1^,0);
GetMem(Kart_1,Size);
postr_graph_1(Kart_1,eps1,eps2,dzeta1,h2,R,T);
{начало 3 фазы}
if (Buf_Postr_Result = false) or ( (Buf_Postr_Result = true) and (Kolvo_Postr = 1) ) then
begin
ClearDevice;
postr_test_raspr_2;
end
else PutImage(30,20,Kart_2^,0);
GetMem(Kart_2,Size);
postr_graph_2(Kart_2,Pereh,eps1,eps2,dzeta1,h2,R,T);
readln;
CloseGraph;
end;
{------------------------------------------------------------------}
begin
Kolvo_Postr:=1;
perehod:
if Kolvo_Postr > 1 then Buf_Postr_Result := true
else Buf_Postr_Result:=false;
if Kolvo_Postr >= 4 then
begin
Kolvo_Postr := 1;
Buf_Postr_Result:=false;
end;
vvod(Buf_Postr_Result,eps1,eps2,dzeta1,h2,R,T);
postrgraph;
if pereh=true then goto perehod
else
begin
FreeMem(Kart_1,Size);
FreeMem(Kart_2,Size);
end;
end.
в той части где жирно не работает сохранение изображения.в прикрепленном файле модули к программе(нескомпил.).Посмотрите визуально все ли верно.(автор не я,друг попросил помощи).