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.