program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
f:Text;
contact,search_contact,s:string;
stop,search:boolean;
l:Integer;
begin

Assign(f,'C:\Users\exampleuser\example.txt');
Reset(f);
write('Surname = ');
Readln(search_contact);
write('Name = ');
Readln(s);
search_contact:= search_contact + ' ' + s;


while stop = False do
begin
  readln(f,contact);
  if contact = '' then
  begin
    Writeln('Subscriber missing');
    Break;
  end;
  for l:=1 to length(search_contact) do
  if contact[l] <> search_contact[l] then
  search:=False
  else
  search:= True;
  if search then
  begin
    writeln(contact);
    stop:= True;
  end;
end;
readln;
end.