program ParseMessages;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.AnsiStrings, System.StrUtils;

const
  // Исходный перечень сообщений
  C_MESSAGE_STRINGS: array [0..11] of string = (
    'Hi, I''m Carter',
    'My name is rod Stewart',
    'Nice to meet you, im dixon...',
    'I am smith walker it''s nice to meet you',
    'im Carter Stewart Smith, how are you doing?',
    'There''s no name here',
    'Hi I''m late for an interview',
    'I am a retail manager',
    'I''m Dixon marshall and I have a question.',
    'Where is Rod Stewart and his dog?',
    'Hi my name is Dixon Walker, where can I buy these shoes?',
    'I am hungry but I want to see Marshall first.'
  );

const S_NAME : array [0..6] of string = (
      'Rod',
      'Stewart',
      'Carter',
      'Dixon',
      'Marshall',
      'Smith',
      'Walker'
 );

const S_FRAZA : array [0..2] of string = ('I''m', 'I am', 'my name is');


function GetName(a_str:string):string;
 var I:Integer;
     tmp:String;
     d:boolean;
 begin
  //провыеряем совпадение по фразам
  d := false;
  for I:= Low(S_FRAZA) to High(S_FRAZA) do begin
      tmp := S_FRAZA[I];
      if pos(#39, tmp) > 0 then begin
          delete(tmp, pos(#39, tmp), 1 );
          if ( pos( AnsiLowerCase(tmp), AnsiLowerCase(a_str)) > 0 ) then begin
              delete(a_str, 1, pos( AnsiLowerCase(tmp), AnsiLowerCase(a_str))+Length(tmp) );
              d:=true;
          end;
      end;
      if (pos( AnsiLowerCase(S_FRAZA[I]), AnsiLowerCase(a_str)) > 0) then begin
         if not d then delete(a_str, 1, pos( AnsiLowerCase(S_FRAZA[I]), AnsiLowerCase(a_str))+Length(S_FRAZA[I]) );
      end;
   end;

   //проверяем имена, из словаря


   result := a_str;
 end;

var
  messageStr: string;
begin
  // Обходим сообщения из исходного перечня и выводим результат их разбора
  for messageStr in C_MESSAGE_STRINGS do
  begin
    Writeln(Format('%0:s => %1:s', [messageStr, GetName(messageStr)]));
  end;
  Readln;
end.