Заранее благодарен.
Вот, что у меня имеется:
type
TReys = record
NR:integer;
PO,PP:string[30];
DateO,DateP:string[10];
TimeO,TimeP:string[5];
KolM:byte;
CenaB:string[7];
end;
TFReys = file of TReys;
procedure VvodR (var R:TReys);
begin
write('Nomer reysa: '); readln(R.NR);
write('Punkt otpravlenija: '); readln(R.PO);
write('Date otpravlenija: '); readln(R.DateO);
write('Vremja otpravlenija: '); readln(R.TimeO);
write('Punkt pribitija: '); readln(R.PP);
write('Date pribitija: '); readln(R.DateP);
write('Vremja pribitija: '); readln(R.TimeP);
write('Kolichestvo mest (biletov): '); readln(R.KolM);
write('Cena bileta: '); readln(R.CenaB);
end;
procedure RReys;
var F:TFReys;
R:TReys;
begin
assign(F,'Reys.dat');
{$I-}
Reset(F);
if IOResult<>0 then
Rewrite(F);
{$I+}
VvodR®;
Seek(F,FileSize(F));
write(F,R);
Close(F);
end;