отладить программу

Program Cars;
uses Crt,graph;
type car=record
markauto:string;
model_auto:string;
tip_kyzova:string;
AKPP:string;
V:integer;
god_vipyska:integer;
color:string;
end;
var      f:file  of car;
zn,filename:string;
  {‘®§¤**ЁҐ Ў*§л ¤***ле -------------------------------------}
procedure Creatfile;
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле, Є®в®а*п Ўг¤Ґв ᮧ¤*ў*вмбпя');
readln(filename);
assign(f,filename);
rewrite(f);
end;
  {-----------------------------------------------------------}
procedure Addrecord;
var ch:char;
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле, ў Є®в®аго Ўг¤Ґв ¤®Ў*ў«Ґ** §*ЇЁбм');
readln(filename);
assign(f,filename);
reset(f);
seek(f,filesize(f));
end;
   {==========================================================}
procedure Inputfile;
var st:car;
k:char;
begin
repeat
writeln('‚ўҐ¤ЁвҐ ¤***лҐ ® *®ў®¬ *ўв®¬®ЎЁ«Ґ : ');
write('Њ*аЄ* ¬*иЁ*л:');                       readln(st.markauto);
write('Њ®¤Ґ«м ¬*иЁ*л:');                      readln(st.model_auto);
write('’ЁЇ Єг§®ў*:');                         readln(st.tip_kyzova);
write('’ЁЇ ЂЉЏЏ: ');                          readln(st.AKPP);
write('ЋЎкс¬ ¤ўЁЈ*⥫п:');                    readln(st.V);
write('ѓ®¤ ўлЇгбЄ*: ');                       readln(st.God_vipyska);
write('–ўҐв: ');                              readln(st.color);
write(f,st);
write('Ќ*¤® «Ё ўў®¤Ёвм ¤***лҐ ® *®ў®¬ *ўв®¬®ЎЁ«Ґ ? (Y/N)>');readln(k);
writeln;
until(k='n') or (k='N');
close(f);
end;
    {=========================================================}
procedure redzap;
var
st:car;
filename,str:string;
markauto2:string;
model_auto2:string;
tip_kyzova2:string;
AKPP2:string;
V2:integer;
god_vipyska2:integer;
color2:string;
x:integer;
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле'); readln(filename);
assign(f,filename);
reset(f);
with st do
begin write('‡*¤*с⥠¬*аЄг ¬*иЁ*л: ');readln(str);
x:=0;
while not eof(f) do
begin
read(f,st);
if st.markauto=str then
begin
writeln('‚ўҐ¤ЁвҐ *®ўлҐ ¤***лҐ ®Ў *ўв®¬®ЎЁ«Ґ: ');
write('Њ*аЄ* ¬*иЁ*л:');                         readln(st.markauto);
write('Њ®¤Ґ«м ¬*иЁ*л:');                        readln(st.model_auto);
write('’ЁЇ Є®§®ў*:');                           readln(st.tip_kyzova);
write('’ЁЇ ЂЉЏЏ:');                             readln(st.AKPP);
write('ЋЎкс¬ ¤ўЁЈ*⥫п:');                      readln(st.V);
write('ѓ®¤ ўлЇгбЄ*:');                          readln(st.god_vipyska);
write('–ўҐв:');                                 readln(st.color);
markauto2:=markauto;
color2:=color;
AKPP2:=AKPP;
model_auto2:=model_auto;
God_vipyska2:=God_vipyska;
tip_kyzova2:=tip_kyzova;
V2:=V;
seek(f,filepos(f)-1);
write(f,st); x:=1;
end; end;
close(f);
end;
if x=0 then  begin writeln('‡*ЇЁбЁ б в*Є®© Њ*аЄ®© *Ґ **©¤Ґ*®');readln; end;
end;
  {==============================================================}
procedure Openfile;
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле'); readln(filename);
assign(f,filename);
reset(f);
end;
     {============================================================}
procedure Outputfile;
var st:car;
begin
while not eof(f) do
begin
read(f,st); clrscr;
writeln('¬*аЄ* ¬*иЁ*л:',st.markauto);
writeln('¬®¤Ґ«м ¬*иЁ*л:',st.model_auto);
writeln('вЁЇ Єг§®ў*:',st.tip_kyzova);
writeln('ЋЎкс¬ ¤ўЁЈ*⥫п:',st.V);
writeln('ЂЉЏЏ:',st.AKPP);
writeln('Ј®¤ ўлЇгбЄ*:',st.god_vipyska);
writeln('梥в:',st.color);
writeln('¤«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ (enter)');
readln;
end;
close(f);
end;
     {============================================================}
procedure Clearfile;
var st:car;
clearzap:string;
fo:file of car;
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле, Ё§ Є®в®а®© Ўг¤Ґв г¤*«пвбп §*ЇЁбм'); readln(filename);
assign(f,filename);reset(f);
assign(fo,'newfile.dat');rewrite(fo);
writeln('‡*¤*©вҐ ¬*аЄг *ўв®¬®ЎЁ«п, §*ЇЁбм ® Є®в®а®¬ г¤*«пҐвбпя'); readln(clearzap);
while not eof(f) do
begin
read(f,st);
if st.markauto<>clearzap then write(fo,st);
end;
close(f);close(fo);
erase(f);
rename(fo,filename);
end;
     {========================================================}
procedure tablgod;
var st:car;  a,b,c,d,g,h:integer; zar,godv,grD,grM,i:integer;
s:string[5];
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле'); readln(filename);
assign(f,filename);reset(f);
a:=0; b:=0; c:=0; d:=0; g:=0; h:=0;
while not eof(f) do
begin
read(f,st);
if st.god_vipyska=2005 then a:=a+1;
if st.god_vipyska=2006 then b:=b+1;
if st.god_vipyska=2007 then c:=c+1;
if st.god_vipyska=2008 then d:=d+1;
if st.god_vipyska=2009 then g:=g+1;
if st.god_vipyska=2010 then h:=h+1;
end;
close(f);
grD:=detect;
initgraph(grD,grM,'c:\tp7\bgi');
SetColor(7);
line(60,20,60,450);
line(60,450,525,450);
outtextXY(30,10,'zarobotok');
outtextXY(530,450,'god vupuska');
godv:=2004;
for i:=0 to 5 do
begin  godv:=godv+1;
str(godv,s);
outtextXY(75+round(i*80),460,s+'g');
end;
setlinestyle(1,0,0);
for i:=0 to 10 do
begin zar:=i; zar:=i*100;
line(55,450-round(i*40),525,450-round(i*40));
str(zar,s);
outtextXY(10,445-round(i*40),s+'$');
end;
Bar( 75,450,115,round(450-(a*40)));
Bar(155,450,195,round(450-(b*40)));
Bar(235,450,275,round(450-(c*40)));
Bar(315,450,355,round(450-(d*40)));
Bar(395,450,435,round(450-(g*40)));
Bar(475,450,515,round(450-(h*40)));
readln;
end;
      {================================================}
procedure tablV;
var st:car; zar,grD,grM,a,b,c,d,g,h,i:integer;
Vdv:real; s:string[3]; s1:string[5];
begin
writeln('‡*¤*©вҐ Ё¬п Ў*§л ¤***ле'); readln(filename);
assign(f,filename);reset(f);
a:=0; b:=0; c:=0; d:=0; g:=0; h:=0;
while not eof(f) do
begin
read(f,st);
if st.V=1 then a:=a+1;
if st.V=2 then b:=b+1;
if st.V=3 then c:=c+1;
if st.V=4 then d:=d+1;
if st.V=5 then g:=g+1;
if st.V=6 then h:=h+1;
end;
close(f);
grD:=detect;
initgraph(grD,grM,'c:\tp7\bgi');
SetColor(7);
line(60,20,60,450);
line(60,450,525,450);
outtextXY(30,10,'zarobotok');
outtextXY(530,450,'V dvigatelya');
Vdv:=0.5;
for i:=0 to 5 do
begin  Vdv:=Vdv+0.5;
str(Vdv,s);
outtextXY(85+round(i*80),460,s);
end;
setlinestyle(1,0,0);
for i:=0 to 10 do
begin zar:=i; zar:=i*100;
line(55,450-round(i*40),525,450-round(i*40));
str(zar,s1);
outtextXY(10,445-round(i*40),s1+'$');
end;
Bar( 75,450,115,round(450-(a*40)));
Bar(155,450,195,round(450-(b*40)));
Bar(235,450,275,round(450-(c*40)));
Bar(315,450,355,round(450-(d*40)));
Bar(395,450,435,round(450-(g*40)));
Bar(475,450,515,round(450-(h*40)));
readln;
end;
 
{Ћб*®ў**п з*бвм Ја*дЁзҐбЄ®Ј® ¬Ґ*о}
 
Const MaxMenuItem = 7;
Var Ret : Byte;
 
Function MainMenu(R_Select:Byte):Byte;
Type TMenu = record
X,Y : Byte;
S : String;
End;
 
Var Menu : Array [1..7] Of TMenu;
    Run : Boolean; {ўлЎа** Їг*Єв ¬Ґ*о}
    Sel : Byte;
    TC, TB : Byte; {梥в}
 
Procedure DrawMenu;
Var I : Byte;
Begin
For I := 1 To MaxMenuItem Do
Begin
GotoXY(Menu[I].X, Menu[I].Y);
Write(Menu[I].S);
End;
End;
 
Procedure Select (I:Byte);
Begin
TextBackground(TC); TextColor(TB);
GotoXY(Menu[I].X, Menu[I].Y);
Write(Menu[I].S);
End;
 
Procedure DeSelect (I:Byte);
Begin
TextBackground(TB); TextColor(TC);
GotoXY(Menu[I].X, Menu[I].Y);
Write(Menu[I].S);
End;
 
Begin
Menu[1].S := '‘®§¤**ЁҐ *®ў®© Ў*§л ¤***ле';         Menu[1].X := 1; Menu[1].Y :=  1;
Menu[2].S := 'ЋвЄалвЁҐ бгйҐбвўго饩 Ў*§л ¤***ле';  Menu[2].X := 1; Menu[2].Y :=  2;
Menu[3].S := '„®Ў*ў«Ґ*ЁҐ §*ЇЁбЁ ў Ў*§г ¤***ле';    Menu[3].X := 1; Menu[3].Y :=  3;
Menu[4].S := '“¤*«Ґ*ЁҐ §*ЇЁбЁ Ё§ Ў*§л ¤***ле';     Menu[4].X := 1; Menu[4].Y :=  4;
Menu[5].S := 'Љ®а४вЁа®ўЄ* §*ЇЁбЁ';               Menu[5].X := 1; Menu[5].Y :=  5;
Menu[6].S := '‡*а®Ў®в®Є в*¬®¦*Ё';                  Menu[6].X := 1; Menu[6].Y :=  6;
Menu[7].S := '‚л室';                              Menu[7].X := 1; Menu[7].Y :=  7;
ClrScr;
TC := TextAttr mod 16;
TB := TextAttr div 16;
DrawMenu;
Sel := R_Select;
Select(Sel);
Run := False;
While Not Run Do Begin
Case ReadKey Of
                #13 : Run := True;
                #27 : Begin
                           Run := True;
                           Sel := MaxMenuItem;
                      End;
 
                #0 : Case ReadKey Of
                           #72 : Begin
                                      DeSelect(Sel);
                                      If Sel = 1
                                      Then Sel := MaxMenuItem
                                      Else Sel := Sel - 1;
                                      Select(Sel);
                                 End;
                           #80 : Begin
                                      DeSelect(Sel);
                                      If Sel = MaxMenuItem
                                      Then Sel := 1
                                      Else Sel := Sel + 1;
                                      Select(Sel);
                                 End;
                      End;
           End;
     End;
     MainMenu := Sel;
 
     TextBackground(TB);
     TextColor(TC);
 
     ClrScr;
End;
var k:integer;
Begin
TextBackground(black);
TextColor(white);
Ret := 1;
repeat
  Ret := MainMenu(Ret);
Case Ret Of
  1: Begin Creatfile; Inputfile  End;
  2: Begin Openfile;  Outputfile End;
  3: Begin Addrecord; Inputfile  End;
  4: Clearfile;
  5: redzap;
  6: begin
     writeln('‚лЎҐаҐвҐ вЁЇ в*Ў«Ёжл:');
     writeln('Џ® Ј®¤г ўлЇгбЄ* (**¦¬ЁвҐ 1)');
     writeln('Џ® ®Ўкс¬г ¤ўЁЈ*⥫п (**¦¬ЁвҐ 2)'); readln(k);
     case k of
     1: tablgod;
     2: tablV;
     else writeln('’ЁЇ ўўҐ¤с* *ҐЄЄ®аҐЄв*®'); end;
     readln;
end;
End;
Until Ret = MaxMenuItem;
End.