Контрольная работа: Среда программирования программы Borland Pascal 70

procedure Question2;

begin

Face;

Assign(f2,'file2.txt');

Reset(f2);

begin

timer:=0;

sum:=0;

for j:=1 to 30 do

begin

Face;

HideMouse;

SetColor(0);

Line(220,430,300,430);

Line(220,430,220,460);

SetColor(15);

Line(220,460,300,460);

Line(300,430,300,460);

OutTextxy(230,440,'Уровень2');

ShowMouse;

i:=1;

y:=50;

x:=30;

repeat

Readln(f2,mas[i].a);

SetColor(0);

OutTextxy(x,y,mas[i].a);

if i=4 then y:=y+90 else

y:=y+20;