Помогите с задачей

[redeezko]

Спасибо конечно большое за помощь))) только я так понимаю вы все символы загоняете в массив, а мне надо без этого)))

[Deamonig]

я записал все слова розделенные пробелом в string, чтобы дальше было легче делать

[redeezko]

а вот так нельзя в том то и дело!!

[Deamonig]

Если слово состоит из 1 буквы то считать его как то, что начинается и заканчивается на 1 букву?

[Deamonig]

Если да то вот, без использования string:

program as;
var
space1,x1prov:byte;
k:integer;
x,x1,x2:char;
begin
x1:='.';
x2:='.';
writeln('введите 1-й символ');
readln(x);

while x<>'.' do
 begin
 if x1prov=1 then 
  begin
  writeln('введите следующий символ');
  readln(x);
  end;
 
 x1prov:=1;

 if x<>' ' then
  if x1='.' then
   begin
   space1:=1;
   x1:=x;
   end
  else if x<>'.' then
   x2:=x
 else
  begin
  if space1=1 then
   if x2='.' then
    x2:=x;
  end;

 if x=' ' then 
  if (x1<>'.') and (x2<>'.') then
   if x1=x2 then
    begin
    k:=k+1;
    x1:='.';
    x2:='.';
    space1:=0;
    end
   else
    begin
    x1:='.';
    x2:='.';
    space1:=0;
    end;
 end;

if x='.' then 
 if (x1<>'.') and (x2='.') then
  k:=k+1;

if x='.' then
 if (x1<>'.') and (x2<>'.') then
  if x1=x2 then
   k:=k+1;

writeln('количество нужных слов =',k );
writeln('Для выхода нажмите ENTER');
readln;
end.