записи, 2 задание курсовой,help,в среду сдавать Опции

[-student-]

1. В трех автопарках работают по 20 машин с заданными госномерами и указанными марками: ГАЗ, ЗИЛ, ЛИАЗ и т.д. Каждый водитель дает сводку о том, сколько километров прошла его машина в каждый день недели, и о размере выручки. Подсчитать общий километраж в каждом автопарке по каждому дню отдельно. В каком из автопарков самый большой автопробег? Какой день недели соответствует самой большой прибыли, полученной автохозяйством? Автомобили какой марки приносят самую большую прибыль?

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

Буду очень признателен за помощь.

Код

type
   avto=record
   marka,navto,den:string;
   nparka:1..3;
   probeg,viruchka:word;
   end;

   var
    infile: file of avto;
    fa:avto;
    n,i:integer;
    fff:string;
    key:boolean;
    begin
     assign(infile,'file.dat');
     rewrite(infile);
     writeln('введите данные или нажмите ctrl-z');
     writeln(' марка,номер,день,номерпарка,пробег,выручка');
     while not eof do
     begin
     read(fa.marka,fa.navto,fa.den,fa.nparka,fa.probeg,fa.viruchka);
     write(infile,fa);
     end;
     close(infile);
     writeln('введите номер авто');
     readln(fff);
     key:= false;
     reset(infile);
     while(not eof(infile)) and (not key) do
     begin
     read(infile,fa);
     if fa.navto = fff then
     begin
     writeln(fa.marka,fa.navto,fa.den,fa.nparka,fa.probeg,fa.viruchka);
     key:=true;
     end;
     end;
     if not key then
     writeln('нет данных');
     close(infile);
     end.

Теги не забывай

Сообщение отредактировано: volvo - 16.05.2005 15:41