Определить, имеются ли в строке слова со сдвоенными(строенными и т.д) буквами

uses CRT;
var str: string;
i,a,b: integer;
d: integer;
c: array[1..100] of integer;
Begin
writeln('Введите строчку: ');
readln(str);
a:=length(str);
for i:=1 to a do
 begin
  if (str<>' ') then
   begin
    b:=b+1;  //сколько букв
    if (b=0) then
     begin
      str[d]:=str[i];
     end;
   end;
  if (str=' ') then
   begin
    c[b]:=c[b]+1; //подсчет слов с 'b' буквами
    if (b=2) then
     begin
      delete(str,d,2);
     end;
    //writeln('Слов, состоящих из ',b,' символов: ',c[b]);
   end;
 end;
 
a:=length(str);
for b:=1 to a do
 begin
  if (c[b]<>0) then
   begin
    writeln('Слов, состоящих из ',b,' символов: ',c[b]);
   end;
 end;
end.

uses crt;
var str: string;
i,a,b,d: integer;
c: array[1..100] of integer;
first: array[1..100] of integer;
last: array[1..100] of integer;
Begin
writeln('Введите строчку: ');
readln(str);
a:=length(str);
for i:=1 to a do
 begin
  if (str[i]<>' ') then
   begin
    b:=b+1; //сколько букв
    if (i=a) then  //если в конце нет пробела, то последнее слово не засчитается. Это условие нужно, чтобы слово засчитывалось.
     begin
      c[b]:=c[b]+1; //колличество слов с b буквами
     end;
   end;
  if (str[i]=' ') then
   begin
    c[b]:=c[b]+1; //колличество слов с b буквами
    if (b=2) then //если слово состоит из двух букв, то записываем начало и конец этого слова, чтобы в последсвие его удалить.
     begin
      d:=c[b]; //какое по счету слово состоящее из двух букв.
      first[d]:=i-d*2;
     end;
    b:=0; //обнуляем все для того, чтобы подсчитать сколько букв в слове идущем через пробел(в следующем слове)
   end;
 end;
 
for b:=1 to a do
 begin
  if (c[b]<>0) then
   begin
    writeln('Слов, состоящих из ',b,' букв: ',c[b]);
   end;
 end;
 
for d:=1 to a do
 begin
  delete(str,first[d],2);
  a:=length(str);
  if (d=a) and (str[a-2]=' ') then
   begin
    delete(str,a-1,2);
   end;
 end;
 
write(str);
end.