Вопрос Подскажите, почему не работает програмка?

[Revin]

procedure summa(x,y,z:integer);
begin
z:=x+y;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:= 5;
b:=6;
summa(a,b,c);
label1.caption:=inttostr(c);
end;

end.