Pascal Max_Heapify

Question

我用pascal做了這些。

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

拼寫錯誤PROCEDURE。 a：表 - 表不是數據類型。