Записи (структура). проверить.

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.