program file_search;
uses search,dos;
var hour,minute,second,hund:word;
FResult:TResult;
name:string;
i,t:byte;
find:boolean;
begin
gettime(hour,minute,second,hund);
writeln(hour,'/',minute,'/',second,'/',hund);
writeln('Идет поиск...');
if SuperSearch('*i','D','.avi',19,false,FResult) then
 begin
 for i:=1 to 19 do
  begin
  name:=FResult.findname(i);
  if name<>'' then writeln(i,': ',name)
  else break;
  find:=true;
  end;
 end
else find:=false;
if SuperSearch('*i','e','.avi',4,false,FResult) then
 begin
 for t:=i to 19+4 do
  begin
  name:=FResult.findname(t);
  if name<>'' then writeln(t,': ',name);
  end;
 writeln('Поиск закончен!');
 end
else if not find then writeln('Ничего не найдено!');
FResult.destroy;
gettime(hour,minute,second,hund);
writeln(hour,'/',minute,'/',second,'/',hund);
readln;
end.