Паскаль Max_Heapify

Question

Я сделал это на паскале.

Proceure Max_Heapify(a:Table;i:longint);
var tmp,l,r,k:longint;
begin
 l:=2*i;
r:=2*i+1;
if (heapsize>=l)and(a[i]<a[l]) then k:=l else k:=i;
if (heapsize>=r)and(a[i]<a[r]) then k:=r;
if k<>i then
    begin
        swap(a[i],a[k]);
        Max_Heapify(a,k);
    end;
end;

Я написал эту процедуру на паскале, но она, кажется, не работает, и я не могу понять, что не так, может кто-нибудь помочь мне? Спасибо

Answer 1

Вы неправильно написали ПРОЦЕДУРУ. a: Таблица - Таблица не является типом данных.