Плиз, помогите с курсовым в Паскале!!!!СРОЧНО!!!!

[~Brilliant~]

Надо дописать код процедуры, которая рисует диаграмму зависимости к-ва авто от марки.И сделать какое-нибудь не оч сложное меню.Буду оч признательна))))
Вот код, выделенное доделать:


Program Kurs;
uses crt,graph;
Type
avtosalon = record
model: string[100];
cena: real;
kol: integer;
cvet: string[100];
end;

gen = object
private
f,tmpf:file of avtosalon;
tmp:avtosalon;
procedure readbuf;
procedure readbufkl;
procedure writebuf;
procedure _show;
public
procedure init;
procedure create;
procedure add;
procedure show;
procedure search(m: string);
procedure delete;
procedure show_graphik;
end;

graphik = object(gen)
procedure init;
procedure show_line;
procedure show;
end;

procedure graphik.init;
Var
b,d,e: integer;
begin
d:=detect;
InitGraph(d,b,'')
end;

procedure graphik.show_line;
var
n:byte;
xn,xk,yn,yk: integer;
name: char;

e: integer;
begin
e:=GraphResult;
if e<>grOk then
writeln(GraphErrorMsg(e))
else
begin

SetColor (black);
OutTextXY (20,10,'Diagramma');
line (0,100,450,100);
line (440,90,450,100);
line (440,110,450,100);
OutTextXY (440,115,'Marka');
line (55,35,55,150);
line (45,45,55,35);
line (65,45,55,35);
OutTextXY (45,30,'K-vo');
end;
end;

Procedure graphik.show;
Var
n: integer;

begin
......... end;

procedure gen.init;
begin
assign (f,'Whole.dat');
assign (tmpf,'temp.txt');
end;

procedure gen.delete;
begin
reset(f);
rewrite(tmpf);
while not(eof(f)) do begin
readbuf;
_show;
writeln('delete this structure??? (y/n)');
if (readkey<>'y') then write(tmpf,tmp);
end;
end;

procedure gen.search(m: string);
var
fl:boolean;
begin
fl:=false;
reset(f);
while not(eof(f)) do
begin
readbuf;
if(tmp.model=m) then begin _show; fl:=true; end;
end;
if not(fl) then writeln('not found!!!');
close(f);
end;

procedure gen.add;
begin
reset(f);
rewrite(tmpf);
while not(eof(f)) do begin
readbuf;
write(tmpf,tmp);
end;
repeat
readbufkl;
write(tmpf,tmp);
writeln('Press ESC to break');
until readkey=#027;
close(f);
close(tmpf);
erase(f);
rename(tmpf,'Whole.dat');
end;

procedure gen.show;
begin
reset (f);
clrscr;
writeln ('|=============================AUT OSALON=====================|');
writeln ('| MODEL | Kolichestvo | Zena [$] | Cvet Korpusa |');
writeln ('|____________|_____________|_____ ___________|_______________|');
while (not eof(f)) do
Begin
read(f,tmp);
with tmp do
writeln ('| ',model,' ',kol,' ',cena:6:2,' ',cvet,' |' );
End;
readkey;
close(f);
end;

procedure gen._show;
begin
clrscr;
writeln ('|=============================AUT OSALON=====================|');
writeln ('| MODEL | Kolichestvo | Zena [$] | Cvet Korpusa |');
writeln ('|____________|_____________|_____ ___________|_______________|');
with tmp do
writeln ('| ',model,' ',kol,' ',cena:6:2,' ',cvet,' |' );
readkey;
end;

procedure gen.create;
begin
rewrite(f);
repeat
readbufkl;
writebuf;
writeln('Press ESC to break');
until readkey=#027;
close(f);
end;

procedure gen.readbuf;
begin
read(f,tmp);
end;

procedure gen.writebuf;
begin
write(f,tmp);
end;

procedure gen.readbufkl;
begin
with tmp do
begin
writeln ('Vvedite marku avto');
readln (model);

writeln ('Vvedite kolichestvo');
readln (kol);

writeln ('Vvedite cenu [ $ ] ');
readln (cena);

writeln ('Vvedite cvet korpusa');
readln (cvet);
end;
end;


Var
key:string;
tmp:gen;
begin
tmp.init;
{ tmp.create;
tmp.show;}
{ tmp.add;}
tmp.show;
writeln('Please, enter find argument:');
read(key);
tmp.search(key);
end.

[~Brilliant~]

Люди,пожалуйста,только не молчите......Если все очень плохо, так и говорите

[neBu4kaMaXiM]

ты лучше прочитай ещё про модуль Graph