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

[redeezko]

По одному символу вводится текст до точки. Текст состоит из слов, разделенных произвольным количеством пробелов. Начинаться текст может с любого количества пробелов. Найти, сколько в этом тексте слов, у которых совпадает первая и последняя буква.

[redeezko]

очень прошу помощи. у самого ну никак просто не получается.

[redeezko]

вот что написал сам

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var x,x1,y:char;
    k:integer;
begin
k:=0;
  writeln('vvedite text');
  read(x);
  if x<>'.' then
      begin
        while (x<>' ') and (x<>'.') do
                read(x);
        if x<>'.' then
            begin
              while (x<>'.') and (x<>' ') do
                      read(x);
        if x<>'.' then
            begin
              x1:=x;
              read(x);
        if (x<> '.') and (x<>' ') then
            begin
              x:=y;
        if x1=y then

            k:=k+1
            end
            end
            end
      end;
  writeln('k=',k);
  readln;
End.

но не считает. не могу найти ошибку. помогите пожалуйста

[redeezko]

неужели никто так и не откликнется (((((((((

[Deamonig]

Как ты собираешся узнать что набор символом это слово?
Например вводим: " Д е д о к о ы ы "
Здесь должно получится 3 слова? (Дед, око, ыы)

[redeezko]

в данном случае словом является любая последовательность символов, стоящая между соседними пробелами

[Deamonig]

Пару мин и сделаю )

[Deamonig]

Попробуй этот код, но сам я не проверял его, так что если ошибки пиши сюда, найду )

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var x,b1,b2:char;
tx:sting;
  number, i, k:integer;
begin
 tx:='';
 k:=0;
number:=0;
b1:=1;
writeln('vvedite text');
read(x);
while x<>'.' do 
 begin
  read(x);
  if tx[1]='' then 
    if (x<>' ') then 
     begin 
      tx[1]:=x;
      number:=1;
     end;
   else
  else
  begin
   tx[number+1]:= x;
   number:=number+1;
  end;
 end;

for i:=1 to length(tx) do
begin

if tx[i]=' ' then
 if tx[b1]=tx[i-1] then 
  begin
   k:=k+1;
   b1:=i+1;
  end;

if tx[i]='.' then
 if tx[b1]=tx[i-1] then 
  k:=k+1;
end;

writeln('k=',k);
readln;
End.

[Deamonig]

Не учел произвольное количество пробелов между словами, щас исправлю

[Deamonig]

Так вроде правилоьно )

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var x,b1,b2:char;
tx:sting;
  number, i, k:integer;
begin
 tx:='';
 k:=0;
number:=0;
b1:=1;
writeln('vvedite text');
read(x);
while x<>'.' do 
 begin
  read(x);
  if tx[1]='' then 
    if (x<>' ') then 
     begin 
     tx[1]:=x;
     number:=1;
     end;
   else
  else
  BEGIN
   if x=' ' then if tx[number]<>' '
   then
    begin
     tx[number+1]:= x;
     number:=number+1;
    end
    else 
   else 
   begin
     tx[number+1]:= x;
     number:=number+1;
   end;
  end;
 END;

tx[number+1]:='.';

for i:=1 to length(tx) do
begin

if tx[i]=' ' then
 if tx[b1]=tx[i-1] then 
  begin
   k:=k+1;
   b1:=i+1;
  end;

if tx[i]='.' then
 if tx[b1]=tx[i-1] then 
  k:=k+1;
end;

writeln('k=',k);
readln;
End.