Когда я ввожу номер теста у меня ошибка file not found

Program Test;
uses crt;
var
 a, i, qc, ac, cq  : Integer;
 tf : text;
  q,
  v1, v2, v3, v4, v5,
  name, grp, stime, etime, s : string;
  r, v, ra, nra, tn, eva : integer;
begin
 clrscr;
 writeln('Vvedite imya:');
 readln(name);
 writeln('Vvedite gruppu:');
 readln(grp);
 writeln('Vvedite Nomer testa:');
 readln(tn);
 str(tn, s);
 assign(tf, s+'.txt');
 reset(tf);
 readln(tf, qc);
 while qc<>0 do
 begin
  clrscr;
  WriteLn('Pravilnih: ', ra, '| Ne pravilnih: ', nra);
  readln(tf, q);
  writeln(q);
  readln(tf, ac);
  readln(tf, r);
  readln(tf, v1);
  writeln('1: ', v1);
  readln(tf, v2);
  writeln('2: ', v2);
  if ac>2 then
  begin
   readln(tf, v3);
   writeln('3: ', v3);
  end;
  if ac>3 then
  begin
   readln(tf, v4);
   writeln('4: ', v4);
  end;
  if ac>4 then
  begin
   readln(tf, v5);
   writeln('5: ', v5);
  end;
  readln(v);
  if v=r then
  inc(ra) else inc(nra);
  inc(cq);
  if cq=qc then
  Break;
 end;
 close(tf);
 clrscr;
 eva:=2;
 if(ra*100/qc)>=60then
 eva:=3;
 if(ra*100/qc)>=99then
 eva:=4;
 if(ra*100/qc)=100then
 eva:=5;
 WriteLn('Ocenka : ', eva);
 assign(tf, name+'.txt');
 rewrite(tf);
 writeln(tf, 'Imya: '+name);
 writeln(tf, 'Nachala testirovanya: '+stime);
 writeln(tf, 'Okonchanie testirovanya: '+etime);
 writeln(tf, 'Kolichestvo pravilnih otvetov: ', ra);
 writeln(tf, 'Kolichestvo ne pravilnih otvetov: ', nra);
 close(tf);
 readln;
end.

assign(tf, s+'.txt');
 reset(tf);
 readln(tf, qc);