Объявление процедуры

Procedure ИмяПроцедуры(var Параметр!:Тип1; var Параметр2:Тип2;
var FlapaMeTpJ: TnnJ) ; const
{ Описание констант }
var
begin
end;
{ Описание переменных } Инструкции процедуры }