Разработать компьютерную программу, написанную на языке программирования PascalABC, используя тип данных «запись»,

сделаю за 1000 р

http://samplecode.ru/?a=p&i=1733
Вот возьми за идею... Слегка переделать с самолетов на автобусы

вот начало проги с поездом, вся прога не влезает в ответ, если заинтересует, могу прислать в почту
{Расписание электричек хранится в текстовом файле на диске. каждая запись
содержит название пункта назначения, пометки типа "СВ", "ПВ","КСВ" И время
отправления. написать программу, выполняющую след. условия:
1) корректировку или дополнение расписания с клавиатуры;
2)сортировку по станции назначения или по времени отправления;
3) вывод на экран информации о поездах, отходящих после введенного времени;
4) запись расписания в файл под тем же или новым именем.

Процедура Append( var f: Text ) служит для специального открытия
выходных файлов. Она применима к уже существующим физическим файлам
и открывает из для дозаписи в конец файла. }
program spisoks;
uses crt;
const namebd='bd.txt';
type spisok=record
punkt:string[20];
tip:string[10];
cas,min:integer;
//min,n:integer;
//min:integer;
end;
var
k,y:integer;
tbl:array[1..100] of spisok;
f,f1:Text;
w,c:spisok;
z:char;
procedure Make;
var l:string; i,n:integer;
begin
clrscr;
writeln('создание файла');
assign(f,namebd);
rewrite(f);
z:='y';
while z='y' do begin
with w do begin
Write('пункт отправления ');
ReadLn(punkt);
Write('время отправления (час мин) ');
ReadLn(cas,min);
Write('тип вагонов ("СВ", "ПВ","КСВ") ');
ReadLn(tip);
writeln(f,w.punkt);
writeln(f,w.cas);
writeln (f,w.min);
writeln(f,w.tip);
end;
writeln('Данные успешно добавлены');
writeln('добавить еще?(y/n)');
readln(z);
end;
writeln('Задание закончено');
close(f);
writeln('Данные успешно сохранены. нажмите Enter.');
readln;
end;