Pascal. обращение к процедуре

[Лариск]

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.

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

[Stilet]

begin
clrscr;
form_source(n,mass);
form_final(mass,n,code,outmass,nk);

Увидела где?

[Лариск]

В каком смысле где увидела?
Вы уверены, учитель когда спрашивал, держал лист, на котором этого не было))

[Serge_Bliznykov]

я не знаю, что там держал в руке ваш учитель и о чём он Вас спрашивал, НО

где обращение к процедуре, выделенной коричневым цветом!

Обращение к выделенной процедуре именно там, где Вам показывают!
повторю:

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

и, кстати, если я правильно понял, для чего нужна процедура form_final,
то она написана с ошибкой!

я бы предложил такой вариант:

procedure form_final(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
       inc(nk);
       outmass[nk]:=mass[i];     
    end;
  end;
end;

[Лариск]

Спасибо большое!!!!!!!

[Stilet]

учитель когда спрашивал, держал лист, на котором этого не было))

Круто. Радуйся - теперь это есть