Pascal otázka

repeat
k:=0;
o:='0';
  repeat
assign (f,'Subory\otazky.txt');
reset(f);
randomize;
l:=random(10)+1;
g:=(60*k)+(6*l)+1;
n:=o;
n:=premena(n);
setcolor(2);
settextstyle(1,0,6);
outtextxy (170,140,'Otazka c.');outtextxy(415,140,n);
for i:=1 to 900 do  begin
              readln(f,pom);
              if i=g then otazka:=pom;
              if i=g+1 then a:=pom;
              if i=g+2 then b:=pom;
              if i=g+3 then c:=pom;
              if i=g+4 then d:=pom;
              if i=g+5 then so:=pom;
               end;
close(f);
assign (e,'subory\vyhry.txt');
reset(e);
t:=k*3;
for i:=1 to 45 do begin
              readln(e,pom);
              if i=t+1 then pvyhra:=pom;
              if i=t+2 then vyhra:=pom;
              if i=t+3 then kvyhra:=pom;
                  end;