Нужно доработать программу.

[Сергей Запорожский]

Условие:
14. Диспетчер автопарка
Программа предназначена для учета парка автомашин предприятия - расходов
на топливо, ремонт и сервисное обслуживание автомобиля, а также страховку и пр.
Каждое транспортное средство характеризуется маркой, регистрационным
номером, годом выпуска, стоимостью, трансмиссией (число ступеней и тип – ручная
или автомат), начальными показаниями одометра, характеристиками двигателя.
При каждой поездке добавляется информация о дате начала и конца поездки и
преодоленном расстоянии.
С каждым транспортным средством связывается наборы плановых и не
плановых событий, заправка топливом.
Плановые – замена масла, замена тормозной жидкости, проверка давления в
шинах, замена фильтров, проверка аккумуляторов и проводов и т.п. осуществляются
периодически либо по прошествии заданного периода времени, либо при пробеге
заданного числа километров.
Внеплановые – ремонт неисправностей. Каждое событие характеризуется
названием, датой проведения, стоимостью.
Каждая заправка характеризуется объемом заправленного топлива и его
стоимостью.
Для каждого транспортного средства ведется запись истории событий в
отдельный текстовый файл.
Предусмотреть возможность вывода информации о ближайшем
запланированном событии по всем автомобилям или конкретному автомобилю, о
всех прошедших плановых событиях, о всех прошедших не плановых событиях,
среднего расхода топлива за заданный период заданного транспортного средства.
Для проверки работоспособности подпрограмм и модулей создать простейший
интерфейс пользователя. Все базы данных и лог-файлы хранятся на жестком диске.
Если кто возьмется, то напишите плиз.
Есть идея.
будет одна таблица машины - с каждой машинй связан ряд полей а так же еще три таблицы - запланированное и не запланированные мероприятия, а так же поездки.
а что именно выводить написано в предпоследнем абзаце задания
ну и естествено должны быть процедуры, чтобы туда все это вводить

[Сергей Запорожский]

Program cars;
type info=record
marka:string;
data:word;
stoim:longInt;
odometr:integer;
dvigatel:string;
end;
transmissiya=record
stupen:byte;
tip:string;
end;
var
f:array[1..100]of text;
car:array[1..100]of info;
car1:array[1..100]of transmissiya;
n,i,j,d,q,t:byte;
noPlan:array[1..100]of integer;
s:string;
b,a:array[1..1000,1..3]of string[15];
begin
WriteLn('Сколько машин в парке?');
ReadLn(n);
for i:=1 to n do //формируем информацию о всех машинах
begin
WriteLn('Вводим информацию о ',i,'-й машине');
WriteLn('Вводим марку машины');
Readln(car[i].marka);
WriteLn('Вводим год выпуска машины');
Readln(car[i].data);
WriteLn('Вводим стоимость машины');
ReadLn(car[i].stoim);
WriteLn('Вводим начальные показания одометра');
ReadLn(car[i].odometr);
WriteLn('Вводим ха-ки двигателя');
ReadLn(car[i].dvigatel);
WriteLn('Вводим кол-во ступений трансмиссии ');
ReadLn(car1[i].stupen);
WriteLn('Вводим тип двигателя');
ReadLn(car1[i].tip);
end;
for i:=1 to n do begin //незапланированные события
WriteLn('Вводим кол-во прошедших незапланированных событий для ',i,'-й машины');
ReadLn(noPlan[i]);
for j:=1 to noPlan[i] do
for d:=1 to 3 do
begin
if d=1 then begin
WriteLn('Вводим название ',j,'-го незапланированного события');
ReadLn(s);
a[j,1]:=s;
end
else if d=2 then
begin
WriteLn('Дата его проведения= ');
ReadLn(s);
a[j,2]:=s;
end
else begin
WriteLn('Его стоимость= ');
ReadLn(s);
a[j,3]:=s;
end;
end;
end;
for i:=1 to n do begin
WriteLn('Введите кол-во запланированных событий: ');
ReadLn(q);
for t:=1 to q do
for d:=1 to 3 do begin
if d=1 then begin
WriteLn('Введите название запланированного события');
ReadLn(s);
b[j,1]:=s;
end;
if d=2 then begin
WriteLn('Введите дату проведения этого события ');
ReadLn(s);
b[j,2]:=s;
end;
if d=3 then begin
WriteLn('Введите стоимость этого события ');
ReadLn(s);
b[j,3]:=s;
end;
end;
end;
WriteLn('Вы хотите получить информацию о всех прошедших плановых событиях?');
ReadLn(s);
if s='да' then begin
end;
WriteLn('Вы хотите получить информацию о всех прошедших неплановых событиях?');
ReadLn(s);
if s='да' then begin
end;
WriteLn('Вы хотите рассчитать средний расход топлива одной из машин?');
ReadLn(s);
if s='да' then begin
end;
WriteLn('Вы хотите получить информацию о ближайшем плановом событии?');
ReadLn(s);
if s='да' then begin
WriteLn('Об одном автомобиле?');
ReadLn(s);
if s='да' then begin
end else
begin

end;
end;
end.