Pascal

...
program tekst;
var f : text;
v,s,SamDlSlov : string;
 i,j,n,m : integer;
begin writeln('Введите имя файла ');//используется файл 'tekst.txt'
      readln(v);
      assign(f,v);
      writeln('Содержимое файла: ',v);
      reset(f);
      while not eof(f) do begin readln(f,s);
                                writeln(s);
                          end;
{Здесь должна быть функция нахождения самого длинного слова}
writeln ('Самое длинное слово -  ',SamDlSlov);
readln;
end.