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

y:=whereY;

gotoXY(8,4+i*2);

if i=1 then

readln(avto[i].fi);

readln(avto[i].fi);

gotoXY(27,4+i*2);

readln(avto[i].num);

gotoXY(43,4+i*2);

readln(avto[i].mark);

gotoXY(56,4+i*2);

readln(avto[i].date);

end

else

begin

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

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

x:=whereX;

y:=whereY;

gotoXY(8,5+9*2);

readln(avto[i].fi);

gotoXY(27,5+9*2);

readln(avto[i].num);

gotoXY(43,5+9*2);

readln(avto[i].mark);

gotoXY(56,5+9*2);

readln(avto[i].date);

end;

write(zap,avto[i]);

gotoXY(x,y);