Проверить, что требование о выкупе было сделано с использованием конкретной газеты - PascalABC.NET

var
  buyout, newspaper : String;
  words : array of String;
  oneWord : String;
  p, i : Integer;
  wordFind : Boolean;
begin
  //Write('Требование о выкупе: '); ReadLn(buyout);
  buyout := 'за вашего птенчика хотим один миллион';
  //Write('Газета: '); ReadLn(newspaper);
  newspaper := 'в прошлом году за нашу компанию майкрософт давала' +
               ' один с половиной миллион долларов, а мы хотим им птенчика вашего.';
  newspaper := newspaper.Replace('.', '');
  newspaper := newspaper.Replace(',', '');
  words := newspaper.ToWords;
  
  foreach oneWord in buyout.ToWords do
    begin
      p := words.Length;
      wordFind := False;
      while (p > 0) and Not wordFind do
        begin
          p -= 1;
          wordFind := words[p] = oneWord;
        end;
        
      if wordFind then
        begin
          for i := p to words.Length-2 do
            words[i] := words[i+1];
          SetLength(words, words.Length-1);
        end
      else
        begin
          WriteLn('Ответ отрицательный!');
          Exit;
        end;
    end;
    
  WriteLn('Ответ положительный!');
end.