Прошу помощи. (тип данных запись), Багаж пасажиров... Опции

[CormiX]

Очень прошу помочь с решением даной задачи:

Багаж пассажира характеризуется количеством и общим весом вещей. Создать файл f, содержащий информацию о багаже n пассажиров. Информацию о багаже вывести на экран в виде таблицы. Выяснить пассажира багаж которого состоит из 1-го чемодана весом менее z килограмм.

[Ozzя]

нужно внести в файл

Assign(f,'data.dat');
ReWrite(f);
for i:=1 to n do
begin
  with q[i] do
     begin
        writeln('Vveditj dani pro ',i,'-go pasazhura');
        writeln('Imja');
        readln(imya);
        writeln('Kiljkistj re4ej');
        readln(kiljkistj_re4ej);
        writeln('Vaga');
         readln(vaga_re4ej);
    end;
  write(f,q[i]);
end;
close(f);

Сообщение отредактировано: Ozzя - 24.03.2010 9:19