Type mismatch (Несовпадение типов) - Free Pascal

Формулировка задачи:

Не подскажите, в чем здесь может быть ошибка?

Procedure zapoln_mass(var f: text; var arr: array of integer);
Var i,k:word;
Begin
Reset(f);
k:=0;
While not eof(f) do
inc(k);
setlength(arr,k-1);
Seek(f,0);
For i:=0 to k-1 do
Read(f,arr[i]);
Close(f);
End;

Среди ошибок компилятор указывает следующие: Ссылаясь на функцию

setlength(arr,k-1);

пишет

Type mismatch

, курсор стоит на точке с запятой в конце строчки. А также, если заключить вышеуказанную строчку в фигурные скобки, т.е. пропустить, пишет про это:

Seek(f,0);

что, мол

Call by var for arg no. arg1 has to match exactly: Got ”Text” expected ”File”

, хотя вне процедур у меня с текстом эта функция нормально работала.

Решение задачи: «Type mismatch (Несовпадение типов)»

Листинг программы

type rc = array of integer;

Объяснение кода листинга программы

В данном коде объявлен массив типа rc, который содержит целые числа. Массив имеет тип данных Integer, который может хранить целые числа от -128 до 127. Значения массива могут быть любыми целыми числами в этом диапазоне.