Program FUNC;
var F: text;
    j, k: byte;
function TheLongestWord (s: string): string;
const p=[' ','.',',',':',';','!','?','-','(',')','"']; {розділювачі слів}
var word, maxword: string;
    i: byte;
begin
write('-->'); readln(s);
writeln(F, s);
s:=s+' ';
word:='';
maxword:='';
for i:=1 to length(s) do
    if not (s[i] in p) then word:=word+s[i] else
       if length(word)>0 then
          begin
          if length(word)>length(maxword) then maxword:=word;
          word:='';
          end;
writeln(F,maxword,' ',length(maxword));
end;

begin
assign(F,'C:\F.txt');
rewrite(F);
write('Number of strings in text: '); readln(k);
for j:=1 to k do
close(F);
readln
END.