Есть текст, нужно найти данные

const
  m = 16;
  text: array[1..m] of string =
('Описание каждого тега происходит по одному шаблону, содержит таблицу браузеров ',
'с номерами версий, которые поддерживают указанный тег, синтаксис написания, ',
'допустимые атрибуты и пример использования. В большинстве случаев приводится ',
'рисунок, который показывает результат примера, что позволяет наглядно понять, ',
'как действует тот или иной параметр.В таблице приведены популярные браузеры - ',
'Internet Explorer, Google Chrome, Opera, Safari и Firefox, также используются ',
'следующие обозначения.Ошибки — тег понимается браузером, но при его работе ',
'возможно появление различных ошибок. Для каждого тега и его параметра ',
'приводится таблица соответствия спецификации HTML и XHTML. Для обозначения ',
'используется аналогичная таблице браузеров расцветка. Также вы можете ',
'получить справку, наведя курсор мыши на номер версии языка разметки. HTML: 3, ',
'4, 5 и XHTML 1.Возле каждого примера располагается таблица, где цветом ',
'выделяется, валиден пример или нет. Также приводятся некоторые популярные ',
'браузеры, в которых выполнялся пример и указано, работает в них пример или ',
'нет. Для удобства теги, атрибуты и их значения в справочнике различаются по ',
'цветам. Справочник по HTML. Версия 9 от 01/09/2013.');
var
  d, n, s, nt, nb, nbe, i, j: integer;
  cf3: char;
begin
  d := 0;
  n := 0;
  s := 0;
  nt := -1;
  nb := -1;
  nbe := -1;
  cf3 := char(0);
  writeln('Исходный текст:');
  writeln;
  for i := 1 to m do
    begin
      for j := 1 to length(text[i]) do
        begin
          write(text[i][j]);
          if text[i][j] in ['.', '?', '!'] then inc(s);
          if (s = 2) and (cf3 = char(0)) and (text[i][j] in ['A'..'Z', 'a'..'z', 'А'..'я', 'Ё', 'ё']) then cf3 := text[i][j];
          if text[i][j] in ['0'..'9'] then
            begin
              inc(d);
              if nt > -1 then nt := nt * 10 + StrToInt(text[i][j])
              else nt := StrToInt(text[i][j]);
            end
          else
            if nt > -1 then
              begin
                inc(n);
                if nt > nb then nb := nt;
                if not odd(nt) and (nt > nbe) then nbe := nt;
                nt := -1
              end
        end;
      writeln
    end;
  writeln;
  if d > 0 then
    begin
      writeln('Количество цифр: ', d);
      writeln('Количество чисел: ', n)
    end
  else writeln('Цифры не найдены');
  if s > 0 then writeln('Количество предложений: ', s)
  else writeln('Предложения не найдены');
  if nb > -1 then writeln('Самое большое число: ', nb);
  if nbe > -1 then writeln('Самое большое чётное число: ', nbe);
  if s >= 3 then writeln('Первая буква третьего предложения: ', cf3)
  else writeln('В тексте менее трёх предложений')
end.