По номеру комнаты вывести студентов проживающих в ней

uses crt;
type stud=record
          fio:string;
          grp:integer;
          kom:integer;
          end;
var f:text;
    z:stud;
    name,s,s1:string;
    n,t,c,k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Введите номер комнаты для поиска n=');
readln(n);
k:=0;
while not eof(f) do
 begin
  readln(f,s);//читаем строку
  z.fio:=copy(s,1,pos(' ',s)-1);//копируем первое слово до пробела=фио
  delete(s,1,pos(' ',s));//удаляем его
  s1:=copy(s,1,pos(' ',s)-1);//второе слово=группа
  val(s1,t,c);//преобразуем в число
  z.grp:=t;//в звпись
  delete(s,1,pos(' ',s));
  val(s,t,c);//остаток строки=номер
  z.kom:=t;
  if z.kom=n then//если номер совпал
   begin
    k:=1;//фиксируем совпадение
    writeln(z.fio,'  ',z.grp);//выводим
   end;
 end;
close(f);
if k=0 then write('Такого номера комнаты нет!');
readln
end.