связь через глобальные переменные

[Anna T]

Даны произвольные текстовые файлы. Напишите функцию, которая возвращает среднюю длину строк текста.(тема:связь через глобальные переменные)

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[Stilet]

Объяви глобально:

var t:text;

А ниже напиши функцию

function hoho:Integer;
var haha,ich:integer;s:String;
begin
 haha:=0;ich:=0;
 while not eof(t) do begin readln(t,s);haha:=haha+length(s);inc(ich);end;
 hoho:=haha div ich;
end;

А в главной программе открой фал, вызови эту функу, и закрой файл.

[Anna T]

Спасибо большое, вы мне очень помогли)