program textfile;
uses crt;
var f:text;
    s:string;
    k,code,i,s1:integer;
    m:array [1..20] of integer;
begin
clrscr;
assign(f,'H:\f.txt');
reset(f);
 while not eof(f) do begin
  readln(f,s);
  writeln('Stroka deistvitelnix chisel');
  writeln(s); end;
  Val(s,k,code);
   writeln(k);

(тут что то надо дописать)

  close(f);
  readln;
end.