Записи/типизированые файлы

[innaa639]

Заданный файл, который содержит телефонные номера работников учреждения. Указывается фамилия работника, ее инициалы и номер телефона. Ввести фамилию и имъъя из терминала. Отыскать телефон по введенным данным.

[alex_fcsm]

uses crt;
type
 TUSER=record
    Surname:string[20];
    Init:string[20];
    phone:string[20];
   end;

var i:integer;
    s,s1:string;
    f:file of TUSER;
    T:TUSER;

begin
repeat
clrscr;
writeln('Input man -1');
writeln('Find -2');
Writeln('Exit -3');
case readkey of
'1':begin
     clrscr;
     {$I-}
     assign(f,'c:\1.tdt');
     reset(f);
     if IOResult<>0 then rewrite(f);
     {$I+}
     writeln('INPUT Surname - 20 symbols');
     readln(t.Surname);
     writeln('INPUT Init');
     readln(t.init);
     writeln('INPUT PHONE - 20 symbols');
     readln(t.phone);
     write(f,t);
     close(f);
    end;
'2':  begin
      clrscr;
      Writeln('Input surname for searching...');
      readln(s);
      Writeln('Input init for searching...');
      readln(s1);
      assign(f,'c:\1.tdt');
      reset(f);
      while not eof(f) do
       begin
        read(f,t);
        if (t.Surname=s) and (t.Init=s1) then writeln(t.phone);
       end;
       close(f);
      end;
'3':exit;
  end;
Writeln('Continue?(y/n)');
until readkey='n';
end.

[innaa639]

Блин,вот где ты был раньше когда мне очень она была нужна на зачет,спасибо конечно,но уже поздно

оно мне пишет,что неправильно,неизвестный символ IOResult

[alex_fcsm]

А Вы символы {$I-} {$I+} записали?