Курсовая работа: Техническое задание на создание автоматизированных систем

num:integer;

fi,mark,date:string;

end;

var avto: array [1..17] of vod;

box:vod;

kol,i,x,y,kof,kl,ch:integer;

vma:string;

zap: file of vod;

begin

clrscr;

assign(zap,'zap.txt');

rewrite(zap);

writeln('Режим 4');

writeln;

writeln('Введите количество водителей:');

read(kol);

clrscr;

writeln('Введите данные о водителях');

writeln;

writeln(' ----------------------------------------------------------------------');

writeln(' | № | ФИО водителя | Номер авто | Марка |Дата техосмотра|');

writeln(' ----------------------------------------------------------------------');

{Ввод}

for i:=1 to kol do

begin

if i<10 then

begin

writeln(' | ',i,' | | | | |');

writeln(' ----------------------------------------------------------------------');