Тема: Функція/Визначення найдовшого слова
Завдання:
Для фрагмента тексту визначити найдовше слово кожного рядка. Використати підпрограму-функцію.
Конкретне питання: Чи правильно я задаю шлях?
Вибиває помилку: 103 - файл не відкритий.
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.