UNIT MARTMODUL;

INTERFACE


type intfile = file of martrecord;
martpoint = ^martrecord;
martrecord = record
surname: string;
weight:integer;
flightnumber:integer;
destination:string;

next: martpoint;
prev:martpoint;
end;

procedure writefile(var f: intfile);
procedure pushmart(number: integer; var h, t: martpoint );
Function popmart (h, t : martpoint): integer;

IMPLEMENTATION



procedure writefile(var f: intfile);
var   tmpdata, : martrecord;
flighnumber,weight:integer;
surename,dest:string;
answer:string;
begin
  rewrite(f);
  while(true)
  begin
    while (true) do begin
    writeln('is there passengers? answer yes or no')
    readln(answer);
    if answer='no' then break;
      writeln('Input flightnumber');

        with tmpdata do
        begin
          writeln('inputflightnumber');
          readln(flightnumber);

          writeln('Input surename ');
          readln(surename);

          writeln('Input weight');
          readln(weight);

          writeln('Input dest ');
          readln(dest);
        end;
        write(f,tmpdata);

  close(f);
end;