Товарищ прав ) я сначала глянул меня аж в стан поставило )
но ближе к сути.
вот допустим у тебя есть
function summ(var:a,b:integer):integer
begin
summ:=a+b;
end;
в программе
summ(a,b);
вернёт тебе результат в summ .
для процедуры
procedure summ(var a,b,s:integer)
begin
s:=a+b;
end;
summ(a,b,s);
при вернёт тебе значение в переменную s глобального типа.
гы . не буду пока нагружать переменными локального типа.