program pr1; //variant 4
{$APPTYPE CONSOLE}
uses
  SysUtils;

Procedure String_Entering( var s1:string; var m0:integer; var str0: array [1.100] of string);
  var i:integer;
      L,h:string;
  begin
  writeln('vvedite stroku: ');
  readln(s1);
  L:=length(s1);
  i:=1;
  m0:=0;
  while i<=L do
    begin
      if S1[i]<>' ' then
        begin
          repeat               // Ðàçäåëåíèå ñòðîêè íà ñëîâà
            h:=h+s1[i];
            i:=i+1;
          until (s1[i]=' ' ) or (s1[i]='') ;

          if h <> '' then
            begin
              m0:=m0+1;
              str0[m1]:=h; //mas[m]
            end;
          h := '';
        end;
      i:=i+1;
    end;
end;

Procedure Word_Output(var m1:integer; var str: array [1.100] of string);
  var i:integer;
  begin
    writeln ('Output:');
    for i:=1 to m1 do
      writeln('mas[',i,'] =',str[i]);
      writeln;
      writeln('The number of words - ',m1);
      writeln;
   end;

Procedure Part1(var m2:integer; var str1: array [1.100] of string);
var  i,counter, counter1:integer;
     z:string;
begin
  counter:=0;
  counter1:=0;
  write('s1: ');
    for i:=1 to m2 do   //èùåì îòëè÷íîå îò ïîñëåäíåãî
      if str1[i]<>str1[m] then   //åñëè ýëåìåíò íå ðàâåí ïîñëåäíåìó, òî..
        begin
          inc(counter);       //ñ÷¸ò÷èê äëÿ âûâîäà îòðèöàòåëüíîãî ðåçóëüòàòà
          z:=str1[i];                //ïðèñâàèâàåì ñòðîêîâîé ïåðåìåííîé ñëîâî, íå ðàâíîå ïîñëåäíåìó
            if z[1]=z[length(z)] then //ïðîâåðÿåì, ñîâïàäàåò ëè ïåðâàÿ è ïîñëåäíÿÿ áóêâû
              begin
                inc(counter1);
                write(z,'  ');
              end;
        end;
  if counter1=0 then writeln('There are no words that start and end with the same letter!');
  if counter=0 then writeln('All words are the same!');
  writeln;
end;

Procedure Part2(var m22:integer; var str2: array [1.100] of string);
  var i,b,counterW:integer;
      z:string;
begin
 write('s2: ');
 for i:=1 to m22 do   //èùåì îòëè÷íîå îò ïîñëåäíåãî
  begin
    if str2[i]<>str2[m22] then   //åñëè ýëåìåíò íå ðàâåí ïîñëåäíåìó, òî..
      begin
        z:=str2[i];               //ïðèñâàèâàåì ñòðîêîâîé ïåðåìåííîé ñëîâî, íå ðàâíîå ïîñëåäíåìó
          for b:=1 to length(z) do
            if (z[b]='w') then
              begin
                inc(counterW);
                delete(z,b,1);
                write(z, ' ');
                break; // íåîáõîäèì òóò, èíà÷å öèêë äàëüøå áóäåò ïðîñìàòðèâàòü áóêâû è, ïðè íàëè÷èè åù¸ îäíîãî âõîæäåíèÿ, óäàëèò è å¸.
              end;
        end;
   end;
if counterW=0 then writeln('No words with W in them!');
end;



readln;
end.

{
String_Entering();
Word_Output();
Part1();
Part2();
}