Записи (структура). проверить, реализовать запрос и вывод Опции

[felmor]

реализовать запрос и вывод содержимого базы
данных по ключу.Предусмотреть вывод всей базы
данных на экран. Вся обработка базы данных должна
происходить путем выбора соответствующего пункта из
меню.
Помогите пожалуйста
- Чего не хватает?
- Помогите пожалуйста с запросом (на фото)
- Не могу убрать заливку на титульной странице, ничего из-за нее не видно.

Если нужно больше информации, могу выложить всю курсовую (задание).

program felkurs;
uses crt,graph;
type
	 datatype=record
	 firmpodryadchik:string;
	 klient:string;
	 typestroeniya:string;
	 stoimost:integer;
	 prockredit:integer;
	 summavbanke:integer;
	 neviplsumma:integer;
		end;
		  var max:datatype;
			  fel:file of datatype;
				   i:integer;
				   gm,gd,w,m,x:integer;
				   B:word;
		procedure pr;
		var s:integer;
 begin
	assign(fel,'lab.ua');
	rewrite(fel);
	for i:=1 to 3 do
	begin 
	clrscr;
 writeln('enter firmpodryadchik');
 readln(max.firmpodryadchik);
 writeln('enter klient');
 readln(max.klient);
 writeln('enter typestroeniya');
 readln(max.typestroeniya);
 writeln('enter stoimost');
 readln(max.stoimost);
 writeln(' enter prockredit ');
 readln(max.prockredit);
 writeln('enter  summavbanke ');
 readln(max.summavbanke );
 writeln('enter neviplsumma ');
 readln(max.neviplsumma);
 write(fel,max);
end;
			 close(fel);
end;
procedure klient;
var k:integer;
f:boolean;
begin
clrscr;
f:=false;
writeln(' enter proc_za_credit ');
readln(k);
assign(fel,'lab.ua');
reset(fel);
while not EOF(fel) do
begin
read (fel,max);
if k=max.prockredit then
begin
f:=true;
writeln('procent' , max.prockredit);
end;
end;
if f=false then
writeln (' nety etoy summy');
close(fel);
readln;
end;
procedure r;
var j:integer;
s:boolean;
begin
clrscr;
writeln('enter neviplsumma');
readln(j);
s:=false;
assign (fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
clrscr;
read(fel,max);
if j=max.neviplsumma then
begin
s:=true;
writeln(max.summavbanke);
end;
end;
if  s=false then
begin
writeln('nety summy_vklada_v_banke');
end;
readln;
close(fel);
end;
procedure d;
begin
assign(fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
read(fel,max);
	 writeln('summy_vklada_v_banke', max.summavbanke);
	 writeln('neviplsumma',max.neviplsumma);
	 writeln('proc_za_credit',max.prockredit);
	 writeln('neviplsumma',max.neviplsumma);
	 writeln('stoimost',max.stoimost);
readln;
end;
close(fel);
end;

begin
writeln('initialising graphics');
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then
begin
clrscr;
writeln('initialising error');
writeln(grapherrormsg(graphresult));
delay(1500);
halt(1);
end;
SetBkcolor(4);
repeat
if B<>1 then
begin
FOR x:=1 to 1000 do
circle(200,420,x);
delay(500);
rectangle(30,60,380,580);
setcolor(B);
OuttextXY(100,40,'MISTERSTVO OBRAZOVANIYA I NAYKI UKRAINY');
Setcolor(B);
OuttextXY(180,80,'GOSUDARSTVENNUJ UNNIVERSITET');
setcolor(B);
OuttextXY(130,65,'KAFEDRA INFORMACIONNUH TECHOLOGIJ PROEKTIROVANIYA');
setcolor(B);
OuttextXY(255,155,'KYRSOVAYA ROBOTA');
setcolor(B);
OuttextXY(265,175,'po displine');
setcolor(B);
OuttextXY(105,190,'osnovy programirovaniya i algoritmicheskie yaziki');
setcolor(B);
OuttextXY(90,330,'Vypolnil:');
setcolor(B);
OuttextXY(390,320,'student gruppy IT');
setcolor(B);
OuttextXY(390,340,'Ale Mase');
setcolor(B);
OuttextXY(90,360,'Variant');
setcolor(B);
OuttextXY(380,360,'3');
setcolor(B);
OuttextXY(390,390,'S.M.');
setcolor(B);
OuttextXY(280,460,'2009');
delay(1500);
end;
until keypressed;
closegraph;


begin
repeat
 clrscr;
 writeln('1-new file');
 writeln('2-niyti klienta');
 writeln('3-nevipl.summa');
 writeln('4-podshet file');
 writeln('5-quit');
 writeln;

write('choose:');
readln(i);
if i=1 then pr;
if i=2 then klient;
if i=3 then r;
if i=4 then d;
until i=5;
end.

Сообщение отредактировано: Lapp - 17.05.2009 6:54

[felmor]

Я ж не прошу сделаь мне всю программу, просто помочь переделать её под данный запрос.

По ходу программа не твоя, раз ты таких вещей не знаешь..
Что ты хочешь от нас? Чтоб мы тебе помогли втюхать чужую прогу как твою?..

У меня защита через 3 дня, надо как-то выкручиватся, решил сделать программу на базе чужой, ибо сам в программировании мало чего понимаю.
Теперь прошу Вас о помощи.