パスカル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：テーブル - テーブルはデータ型ではありません。