>>944
procedure sub(var x:Integer);
begin
x:= x*x;
end;

と、どこかに書きます。　コンパイルしてエラーが出るなら書く場所が違うので移動