Переписать слова из текста, имеющие более 2 букв, в строковой массив - Pascal

program pr1;
 
const
  a: string[118] =
    'ёйцукенгшщзхъфывапролджэячсмитьбюЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮqwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';
var
  i: integer;
  b: string;
  c: array[1..100] of string;
  d: string;
  e: integer;
 
begin
  b := 'A Double text: A роза упала на лапу Азора; A роза упала на лапу Азора';
  i := 0; e := 0; d := '';
  repeat
    Inc(i);
    if pos(b[i], a) > 0 then
      d := d + b[i]
    else if (pos(b[i], a) = 0) and (Length(d) < 3) then
      d := ''
    else if ((pos(b[i], a) = 0) and (Length(d) > 2)) then
    begin
      Inc(e);
      c[e] := d;
      d := '';
    end;
  until (i = Length(b){-1}) or (e > 9);
  if (pos(b[Length(b)], a) > 0) and (Length(d) > 2) and (e < 10) then
  begin
    Inc(e);
    c[e] := d;
  end;
  Write('Содержание массива: ');
  for i := 1 to e do
    Write(c[i], '; ');
  writeln();
  writeln('всего в массиве ', e,
    ' слов. Введите номер слова для его вывода на экран или 11 для выхода. ');
  repeat
    ReadLn(i);
    WriteLn(c[i]);
  until i = 11;
end.