[Zayco]

Нужно найти в файле по Ф.И.О номер телефона. У меня только получается найти просто Фамилию. Помогите кто чем может.

Код:

var
   j:Integer;
   s:ansistring;
   s1,s2:AnsiString;
   f:TextFile;

         begin
           s2:='Ñòðîêè íà÷èíàþòñÿ ñî ñëîâà'+edit1.Text;
           Label1.Caption:=s2;
           s1:=Edit1.Text;
           j:=0;
           AssignFile(f,'D:\Input.txt');
           Reset(f);

           while not (Eof(f)) do
           begin
             j:=j+1;
             Readln(f,s);

             if Pos(s1,s2)>0
               then
                s2:=copy(s1,Pos(' ',s2)+1,Length(s2));
                Label1.Caption:=Label1.Caption+' '+IntTostr(j);
           end;
           CloseFile(f);
           if s2=Label1.Caption
            then
             Label1.Caption:=' ôàéëå íåò ñòðîê íà÷èíàþùèõñÿ ñî ñëîâà ' +edit1.Text;

         end


end.