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

end;

until kl=0;

{Вывод}

clrscr;

writeln('Отсортированный список:');

writeln;

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

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

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

for i:=1 to ch do

begin

if i<10 then

begin

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

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

x:=whereX;

y:=whereY;

gotoXY(8,4+i*2);

writeln(avto[i].fi);

gotoXY(27,4+i*2);

writeln(avto[i].num);

gotoXY(43,4+i*2);

writeln(avto[i].mark);

gotoXY(56,4+i*2);

writeln(avto[i].date);

end

else

begin

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