Сформировать новый массив, каждый элемент которого — предложения из первого массива

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 3;
  //Разделители предложений.
  D = ['.', '!', '?'];
  //Величина приращения длины динамического массива.
  Capacity = 10;
  //Исходный массив.
  ArrText : array[0..N-1] of String = (
    ('А все животные в нашем зоопарке живут дружно. А они '),
    ('любят выступать перед детьми, требуя за это только '),
    ('аплодисменты. Каждое воскресенье можно увидеть это шоу!')
  );
var
  S : String;
  Arr : array of String;
  i, j, Po1, Len : Integer;
begin
  //Исходный текст.
  S := '';
  for i := Low(ArrText) to High(ArrText) do begin
    S := S + ArrText[i];
  end;
  Len := Length(S);
 
  //Обработка текста.
  Po1 := 0;
  j := 0;
  for i := 1 to Length(S) do begin
    //Отслеживаем начало предложения.
    if (i = 1) or (S[i - 1] in D) then Po1 := i;
    //Отслеживаем конец предложения.
    if (i = Len) or (S[i] in D) then begin
      //Если требуется, увеличиваем длину массива.
      if j = Length(Arr) then SetLength(Arr, j + Capacity);
      //Добавляем предложение в массив.
      Arr[j] := Copy(S, Po1, i - Po1 + 1);
      //Индекс следующего элемента массива.
      j := j + 1;
    end;
  end;
 
  //Корректируем длину массива в соответствие с количеством
  //добавленных в него элементов.
  if j < Length(Arr) then SetLength(Arr, j);
 
  //Распечатываем содержимое массива в Мемо.
  for i := 0 to High(Arr) do begin
    Memo1.Lines.Add( Arr[i] );
  end;
 
  //Если массив больше не нужен, удаляем его из памяти.
  Finalize(Arr);
end;