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