Question

Укажите строки, содержащие ошибки в приведенном ниже описании функции sum(w), которая должна определять количество элементов в файле w.
1)type numbers = file of integer;
2)function sum(w: numbers): integer;
3)var k, c: integer;
4)begin reset(w); k:=0;
5)repeat read(w, c); k:=k+c until eof(w);
6)sum:=k;
close(w) end;