Двумерный массив, Ошибка в параметрах процедуры Опции

[-=АнЮтА=-]

Процедура работает с файлом чисел.
Невозможно задать выходным параметром двумерный массив
Компилятор выдает ошибку - после array требует of, не дает указать размерность. В чем причина? Помогите пожалуйста.

Procedure FileRead(s: string; var si:array[1..2,1..5] of integer);
    var f: file of integer;
        begin
         assign(f,s);
         reset(f);
         for i:=1 to 2 do
         begin
         for j:=1 to 5 do
         begin
         read(f,a[i,j]);
         writeln(a[i,j]);
         end;
         end;
         close(f);
        end;