program pro231;
uses crt;
type
  zapis=record
    data:string[4];
    kod_cex:string[6];
    kod_mat:string[20];
    potreb:real;
  end;
  base=array[1..1000] of zapis;
  cc=string[6];

procedure form_source(var n:integer;var mass:base);  
var
  i:integer;
begin
  write('Введите количество записей:');
readln(n);
  for i:=1 to n do
  begin
    writeln;
    writeln('Ввод ',i,' записи');
    write('Введитедату:');
    readln(mass[i].data);
write('Введите код цеха:');
readln(mass[i].kod_cex);
write('Введите код материала:');
readln(mass[i].kod_mat);
write('Введите потребность(пример-123456.23):');
readln(mass[i].potreb);
  end;
end;

procedure form_final(var mass:base;n:integer;var code:cc;var 
outmass:base;var nk:integer); 
var
  i:integer;
begin
  nk:=0;
writeln;
  writeln('Введите код необходимого цеха:');
readln(code);
  for i:=1 to n do
begin
    if mass[i].kod_cex=code then           
    begin
      outmass[i]:=mass[i];     
      inc(nk);                 
end;
  end;
end;

procedure outrec(var outmass:base;nk:integer;code:cc);        
var
  i:integer;
begin
  clrscr;
writeln('Записи по цеху №',code);
for i:=1 to nk do
  begin
    writeln(i,')Дата: ',outmass[i].data,';');
    writeln('  Кодцеха: ',outmass[i].kod_cex,';');
    writeln('  Кодматериала: ',outmass[i].kod_mat,';');
    writeln('  Потребность:',outmass[i].potreb:2:2,'.');
    writeln;
  end;
end;

var
  mass,outmass:base;
  n,nk:integer;
  code:cc;
begin
clrscr;
form_source(n,mass);
form_final(mass,n,code,outmass,nk);
outrec(outmass,nk,code);
writeln('Нажмителюбуюклавишу');
readkey;
end.


Вопрос! Где обращение к процедуре, выделенной коричневым цветом! Очень срочно нужен ответ на этот глупый вопрос)))