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

x:=whereX;

y:=whereY;

gotoXY(8,5+9*2);

writeln(avto[i].fi);

gotoXY(27,5+9*2);

writeln(avto[i].num);

gotoXY(43,5+9*2);

writeln(avto[i].mark);

gotoXY(56,5+9*2);

writeln(avto[i].date);

if i=11 then

begin

readln;

readln;

end;

end;

gotoXY(x,y);

end;

close(zap);

writeln;

writeln('Длявозвратавглавноe менюнажмите "ENTER"');

readln;

readln

end;

begin {Основнаяпрограмма}

repeat

clrscr;

writeln('Главноеменю');

writeln;