Как открыть файл именно нужного расширения?

[Johnlion]

Вот у меня есть код Delphi, в нем только проверка на удачное открытие. А вот как добавить проверку на то, открыл я именно нужное расширение (а именно: .in или .txt) или нет?

f_name : Text;
{$I-}
          Reset(f_name);
          If IOResult <> 0 then
          begin
                ClrScr;
                writeln('Ошибочное имя файла!');
                writeln;
                write('Нажмите любую клавишу для возврата...');
                readkey;
                exit;
          end;
{$I+}

[Serge_Bliznykov]

Delphi, говорите?...
А код на Паскале написан...

Ну, раз у Вас Delphi, в модуле sysutils.pas
есть прекрасная функция ExtractFileExt:
function ExtractFileExt(const FileName: string): string;

if (AnsiUpperCase(ExtractFileExt( f_name)) = '.IN') or (AnsiUpperCase(ExtractFileExt( f_name)) = '.IN') then begin ....
   тут ваша обработка
end   
else  begin
  writeln('Ошибочное имя файла - должно быть .in и .txt!');
  writeln;
  write('Нажмите любую клавишу для возврата...');
  readkey;
  exit;
end;

UPDATE
Как у Вас код на Delphi?!!! на Delphi&!?!?!
и что, ClrScr, ReadKey "родные" дельфийские процедуры/функции, да?!...
ну-ну...