var
taht:char;
lause,sona,pikeimsona,nimi:string;
a,b:integer;
f:text;
begin
writeln('Kirjutage oma lause.');
readln(lause);

{Siin leiatakse sonade arv }

b:=0;
if copy(lause,length(lause),1)<>'.' then lause:=lause+' .';
for a:=1 to length(lause) do
      if ((copy(lause,a,1)=' ') and (copy(lause,a-1,1)<>' '))
         or ((copy(lause,a,1)='.') and (copy(lause,a-1,1)<>' ')) then b:=b+1;
      if length(lause)=0 then b:=0;
writeln('Teie lause koosneb ',b,'-st sonast.');



{Siin on lause pikima sona leidmine}

sona:=''; pikeimsona:='';
for a:=1 to length(lause) do
    begin
      if length(sona)>length(pikeimsona) then pikeimsona:=sona;
      if (copy(lause,a,1)<>' ') and (copy(lause,a,1)<>'.')
         and (copy(lause,a,1)<>',') and (copy(lause,a,1)<>'-') then sona:=sona+copy(lause,a,1)
         else sona:='';
    end;
writeln('Pikeim sona selles lauses on : ',pikeimsona,'.');
readln;

{Siin on tekstifaili uurimine}

writeln('Veel ma voin leida pikima sona tekstifailist.');
writeln('Kirjutage teie faile nimi.');
readln(nimi);
assign(f,nimi);
reset(f);
sona:='';pikeimsona:='';
while not eof(f) do
  begin
    read(f,taht);
    if length(sona)>length(pikeimsona) then pikeimsona:=sona;
{    writeln(pikeimsona);}
    if (taht<>' ') and (copy(sona,length(sona),1)<>'.')
         and (taht<>',') then sona:=sona+taht
         else if taht<>'-' then sona:='';
    end;
    writeln('Pikeim sona selles failis on : ',pikeimsona,'.');
readln;
close(f);
end.