[PhoeniX]

А где реализация процедуры? Этот код работать не будет, допишите, пожалуйста

Работать будет прекрасно. Приватные внутренние функции - вполне обычная практика, работает как-то так:

Код:

procedure FUNC(a,b: integer); // Основная процедура
var
  c,d: integer; // переменные этой процедуры
  procedure proc(e, f: integer); // Вложенная процедура, будет иметь доступ к a, b, c, d, e, f
  begin
    // код...
  end;
begin
  // код основной процедуры.
  proc(5, 10); // вызываем вложенную - всё ок.
end;