Чтение определенных строк

uses crt,Graph;
label b;
var
Gd, Gm:integer;
n,m,n1,m1,k:integer;
q,r,t,u:string;
f,f1,f2,f3:text;
  key:char;
begin
   Gd:=detect;
   InitGraph(Gd, Gm, ' ');
   if GraphResult<>grOk then Halt(1);n:=100;
      assign(f,'F:\1\4.txt');
     {$I-}
     reset(f);
     {$I+}
     if IOResult<>0 then exit;
           read(f,q);
         outtextxy(150,100,q);
          close(f);
      assign(f1,'F:\1\otvet1.txt');
     {$I-}
     reset(f1);
     {$I+}
     if IOResult<>0 then exit;
           read(f1,r);
         outtextxy(150,270,r);
          close(f1);
 
m:=250;
m1:=300;
 
setcolor(15);
rectangle(140,m,500,m1);
 
b:
key:=readkey;
case key of
#80:begin;
if m>300 then goto b;
setcolor(black);
rectangle(140,m,500,m1);
m:=m+50; m1:=m1+50;
setcolor(15);
rectangle(140,m,500,m1);
 
end;
#72:begin
if m<300 then goto b;
setcolor(black);
rectangle(140,m,500,m1);
m:=m-50; m1:=m1-50;
setcolor(15);
rectangle(140,m,500,m1);
end;
#13:begin
 
end;
#27:Halt; end;
goto b;
 
readln;
closegraph;
end.

assign(f,'F:\1\4.txt');

assign(f1,'F:\1\otvet1.txt');

assign(f1,'F:\1\otvet1.txt');

      assign(f1,'F:\1\otvet1.txt');
     {$I-}
     reset(f1);
     {$I+}
     if IOResult<>0 then exit;
           read(f1,r);
         outtextxy(150,270,r);
          close(f1);