Написать программу фильтр для вывода строк из файла

program find;                                                                                                                       
    var                                                                                                                              
 s,s1:string;                                                                                                                        
 count:word;                                                                                                                         
 t:text;                                                                                                                             
 a:integer;                                                                                                                          
 begin                                                                                                                               
 readln(s);     {вводим запрос}                                                                                                      
 assign(t,'red.txt');                                                                                                                
 reset(t);                                                                                                                           
 s1:='';                                                                                                                             
 count:=0;                                                                                                                           
 a:=1;                                                                                                                               
    while not eof(t)  do                                                                                                             
    begin                                                                                                                            
 readln(t,s1);                                                                                                                       
 inc(count);                                                                                                                         
    if (pos(s,s1)=0) then                                                                                                            
    s1:=''                                                                                                                           
    else                                                                                                                             
 writeln(count,' ',s1); {выводим номер строки и строку с найденным по запросу словом }                                                                                                              
    end;                                                                                                                             
 close(t);                                                                                                                           
 end.

program new2;                                                                                                                                                                                                                 
                                                                                                                                                                                                                                
Uses SysUtils,classes;                                                                                                                                                                                                        
var                                                                                                                                                                                                                           
List:TStringList;                                                                                                                                                                                                             
i:integer;                                                                                                                                                                                                                                                                                                                                                                                                                                                  
procedure Scan(PATH:string; var List:TStringList);                                                                                                                                                                            
const                                                                                                                                                                                                                         
Ext = '.txt';                                                                                                                                                                                                                 
Mask = '*';                                                                                                                                                                                                                                                                                                                                                                                                                                         
var                                                                                                                                                                                                                           
DirInfo:TSearchRec;                                                                                                                                                                                                           
begin                                                                                                                                                                                                                         
List:=TStringList.Create;                                                                                                                                                                                                     
    if PATH[Length(PATH)]<>'/' then PATH:=PATH+'/';                       { добовляем слешь к пути}                                                                                                                            
    if FindFirst(PATH + Mask, faAnyfile and faDirectory, DirInfo)= 0 then { проверяем есть ли файлы или папки в каталоге }
       begin                                                                                                                                                                                                                   
       repeat                                                                                                                                                                                                                  
       if ((DirInfo.Attr and faDirectory) = faDirectory) then       { если в директории есть поддиректории }                                                                                                                   
             begin                                                                                                                                                                                                             
             { Фильтруем папки }                                                                                                                                                                                               
             if (DirInfo.Name = 'Dir1')or(DirInfo.Name = 'Dir2')or(DirInfo.Name = 'Dir3')or(DirInfo.Name = 'Dir4')                                                                                           
             or(DirInfo.Name = 'Dir5')or(DirInfo.Name = 'Dir6')or(DirInfo.Name = 'Dit7')or(DirInfo.Name = 'Dir8') then Continue;                                                                                
             if ((DirInfo.Name <>'.') and (DirInfo.Name <>'..')) then                      { и они не равны . и .. }                                                                                                           
             Scan(PATH + DirInfo.Name,List);                                                        { запускаем рекурсию }                                                                                                                 
             end                                                                                                                                                                                                               
             else                                                                                                                                                                                                              
                                                                                                                                                                                                                               
                                                                                                                                                                                                                               
             if (DirInfo.Name = 'tabel.txt')or(DirInfo.Name = 'schet.txt') then  { проверяем есть ли мои txt }                                                                                                         
                                                                                                                                                                                                                               
                                                                                                                                                                                                                              
             if ExtractFileExt(DirInfo.Name) = Ext then   {writeln(PATH + DirInfo.Name);}                                                                                                                                      
 
                         begin                                                                                                                                                                                                 
             List.Add(PATH + DirInfo.Name);   { вот это не работает, добавляет в List.Add только одну найденную строчку }                                                                                                                                                      
                         end;                                                                                                                                                                                                  
             until FindNext(DirInfo)<>0;                                                                                                                                                                                       
                                                                                                                                                                                                                               
       end;                                                                                                                                                                                                                    
                                                                                                                                                                                                                               
FindClose(DirInfo);                                                                                                                                                                                                           
end;                                                                                                                                                                                                                          
                                                                                                                                                                                                                               
begin                                                                                                                                                                                                                         
Scan('/home/oem/Project/Log',List);                                                                                                                                                                                           
for i:=0 to List.Count-1 do                                                                                                                                                                                                   
writeln(List[i]);                                                                                                                                                                                                             
end.

if FileExists(ИмяФайла) then ...