Көмектесідерші, 2 тапсырма 1, 2, 3.

PascalABC.Net

const
//Формат файла
 //Фамилия имя номер    
fl = 'D:\phone.txt';  
var   
t : text;   
c : char;   
Fnm,s : string; 

begin 
assign (t,fl); 
reset (t);   

writeln ('Укажите фамилию'); 
readln (Fnm);  writeln();     

While not eof (t) do   
begin     
s := '';          

//Считываем фамилию
read (t,c);         
While c <> ' ' do       
begin       
s := s + c;       
read (t,c);       
end;

//Если Фамилию нужная то дочитываем            
//иначе переходим к следующему
if s = fnm then     
begin       
write (s+' ');       

While not eoln(t) do         
begin         
read (t,c);         
write (c);         
end;       
readln (t);       
writeln ();     
end 
   
else     
readln (t);        
end; 

close (t); 
end.

Program primer;
var
  f: text;
  i, j, h: byte;
  l, k: smallint;
  s, s1, s2, m: string;
begin
assign(f, 'F.txt'); {путь к файлу}
  reset(f);
   read(f, s);
  s := ' ' + s + ' ';
  close(f);
  writeln('укажите 2 слова через строчку');
  readln(s1);
  readln(s2);
  i := 0; j := 0; m := s; k := 1;
  while k <> 0 do
   begin
    k := pos(' ' + s1 + ' ', m);
    if (k <> 0) then inc(i);
    delete(m, 1, k + length(s1));
  end;
  k := 1; m := s;
  while k <> 0 do
   begin
    k := pos(' ' + s2 + ' ', m);
    if (k <> 0) then inc(j);
    delete(m, 1, k + length(s2));
  end;
  m := s; k := 1; h:=0;
  while (k <> 0) or (l <> 0) do
   begin 
    k := pos(' ' + s1 + ' ' + s2 + ' ', m);
    l := pos(' ' + s2 + ' ' + s1 + ' ', m);
    if (k <> 0) or (l <> 0) then inc(h);
     delete(m, 1, k + l + length(s2 + s1) + 1);
   end;
 writeln('количество слов соответствующих первому = ', i);
 writeln('количество слов соответствующих второму = ', j);   writeln('непосредственно друг за другом   х', h);
end.