Dos unit fájlkezelés - példaprogram

program Szokeres;
uses Crt, Dos;
var  t: boolean;
     k: string;
     sr: SearchRec;

procedure Keres;
var sor: string;
    s: longint;
    f: text;
begin
  Assign(f, sr.name);
  Reset(f);
  s := 0;
  while not Eof(f) do
    begin
      Inc(s);
      ReadLn(f, sor);
      if Pos(k, sor) <> 0 then
        begin
         t := true;
         WriteLn('A keresett szo a ', sr.name, ' file ', s, '. sor ban van.')
        end;
    end;
  Close(f)
end;

begin
  ClrScr;
  WriteLn('Kerem a szot!');
  ReadLn(k);
  t := false;
  FindFirst('*.pas', anyfile, sr);
  while DosError = 0 do
   begin
    Keres;
    FindNext(sr);
   end;
  if not t then WriteLn('A keresett szot nem talalom.');
  ReadKey
end.