Ошибка в записи

[Ilai]

Добрый день!
Помогите пожалуйста с программой. Выдает ошибку в строке выделенной красным. Syntax error, "OF" expected but "[" found

Program Zapis_8_2;
const n=20;
type Drob=record
     ch,zn:integer;
     end;

Procedure Input(var p:array[1..n] of Drob);<---Вот в этой строке
var
   i: byte;
begin
  Randomize;
   For i:=1 to n do
   begin
      p[i].ch:=Random(20);
      p[i].zn:=p[i].ch+Random(20)+1;
      Write(p[i].ch,'/',p[i].zn,'  ');
    end;
   Writeln;
 end;

Procedure Calc(var p:array[1..n] of Drob);
var
    i, j, k, q:byte;
    Flag: boolean;

begin
    k:=0;
   For i:=1 to n-1 do
   begin
   k:=p[i].ch;
      For j:=i+1 to n do
         begin
         If p[i].zn=p[j].zn then
           k:=k+p[j].ch;
        If j=n then
         If k>p[i].ch then
         begin
         Flag:=true;
          For q:=i-1 downto 1 do
          If p[i].zn<>p[q].zn then
          Flag:=true
          else
          begin
          Flag:=false; break;
          end;
          If Flag=true then
          write(k, '/', p[i].zn, '  ');
         end;
        end;
       end;
    end;

var p:array[1..n] of Drob;

begin
   Input(p);
   readln;
   Calc(p);
   Readln;
end.

[newerow1989]

Исправить:

type Drob=record
     ch,zn:integer;
     end;
var arDrob:array[1..n] of Drob;

Procedure Input(var p:arDrob);<---Вот в этой строке

Procedure Calc(var p:arDrob);

var p:arDrob;

[Ilai]

Большое спасибо за помощь!!