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

procedure ИмяПроцедуры(var Параметр1: Тип1;
var Параметр2: Тип2; var ПараметрJ: TипJ } ;

const

{ описание констант }

var

{ описание переменных }

begin

{ инструкции процедуры }

end;

Примечание

Слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызвавшую ее программу.