Pascal/Turbo Pascal - error en pascal ayuda

Estoy realizando un sistema contable en pascal pero en el procedure recibo no me lo reconoce me marca error al invocarlo dentro de una condicional para un menu de seleccion.
al escoger el numero 1 tendra que entrar a la opcion de factura pero no reconoce el procedimiento llamando recibo.

Codigo:

program menu;
uses crt;

CONST
num_personas = 5;

TYPE
tRregistro = RECORD
cont:integer;
num:integer;
quetz:real;
fecha:string;
nombre:string;
letra:string;
asunto:string;
direccion:string;
end;
tPersonas=array[1..num_personas] of tRregistro;

Var respuesta: integer;

procedure pantallagrande;
var
cont:integer;
begin
for cont:= 1 to 119 do
begin
textbackground(yellow);
gotoxy(1+cont,1); ;write(' ');
gotoxy(120-cont,30); ;write(' ');
end;

for cont:= 1 to 29 do
begin
gotoxy(119,1+cont); ;write(' ');
gotoxy(1,30-cont); ;write(' ');
end;
end;

//-------------- Finaliza pantalla grande -----------------//


//-------------- Inicia recuadro de carga -----------------//

procedure recuadrocarga;
var
cont2:integer;
begin
textbackground(black);
textcolor(yellow);
gotoxy(35,14); ;write(char(201));
gotoxy(88,14); ;write(char(187));
gotoxy(88,18); ;write(char(188));
gotoxy(35,18); ;write(char(200));

for cont2:= 1 to 52 do
begin
gotoxy(35+cont2,14); ;write(char(205));
gotoxy(88-cont2,18); ;write(char(205));
end;
for cont2:= 1 to 3 do
begin
gotoxy(35,14+cont2); ;write(char(186));
gotoxy(88,18-cont2); ;write(char(186));
end;
end;

//-------------- Finaliza recuadro de carga -----------------//

//--------------- Inicia barra de carga -----------------//

procedure barracarga;
var
cont3:integer;
c:integer;

begin
c:=37;
for cont3:= 1 to 100 do
begin
textbackground(black);
delay(100); gotoxy(60,15); writeln(cont3,'%');

if ((cont3 mod 2) = 0) then
begin
textbackground(yellow); gotoxy(c,16); writeln(' ');
c:=c+1;
end;
end;
end;

//-------------- Finaliza barra de carga -----------------//


//-------------- Inicia pantalla de bienvenida ----------------- //

procedure bienvenida;
var
cont4:integer;
begin
clrscr;
textbackground(black);

for cont4:= 1 to 75 do
begin
textbackground(red);
gotoxy(11 + cont4,3); write(' ');
gotoxy(87 - cont4,27); write(' ');
end;

for cont4:= 1 to 25 do
begin
gotoxy(87,2 + cont4); write(' ');
gotoxy(10,28 - cont4); write(' ');
end;

for cont4:= 1 to 62 do
begin
textbackground(red);
gotoxy(17 + cont4,10); write(' ');
gotoxy(80 - cont4,23); write(' ');
end;

for cont4:= 1 to 13 do
begin
gotoxy(79,10 + cont4); write(' ');
gotoxy(18,10 + cont4); write(' ');
end;

repeat
gotoxy(37,12);writeln('**// MENU //**');
gotoxy(20,13);writeln('1. FACTURA');
gotoxy(20,15);writeln('2. RECIBO');
gotoxy(20,17);writeln('3. CHEQUE');
gotoxy(20,19);writeln('4. PAGARE');
gotoxy(20,21);writeln('5. SALIDA');
writeln;
gotoxy(35,15);writeln('Ingrese la opcion a utilizar');
gotoxy(35,17);readln(respuesta);
until (respuesta=5);

clrscr;
writeln('Gracias por utilizar nuestro sistema contable');
writeln('Hasta Luego!!!!!');
end;
//-------------- Finaliza pantalla de bienvenida ----------------- //

PROCEDURE recibo(VAR personas:tPersonas);
var
i:integer;
begin

for i:=1 to num_personas do
begin
with personas[i] do
begin
writeln('----------------------------------------------------');
writeln('|***********************RECIBO',' ',i,'*******************|');
writeln('----------------------------------------------------');
writeln('----------------------------------------------------');
write('No. ');
readln(num);
write('Por: Q/.');
readln(quetz);
write('Guatemala,');
readln(fecha);
writeln('');

writeln('R R R E E E E C C C C I I B B B B O O');
writeln('R R E C C I I B B O O');
writeln('R R R E E E E C I I B B B O O');
writeln('R R E C C I I B B O O');
writeln('R R E E E E C C C C I I B B B B O O');
writeln('');

write('Recibi de:');
readln(nombre);
write('La cantidad de (en letras): ');
readln(letra);
write('Por:');
readln(asunto);
write('Domicilio: ');
readln(direccion);
writeln('------------------');
write(nombre);
writeln('Firma del Receptor');
writeln('----------------------------------------------------');
end;
end;
end;

begin
clrscr;
pantallagrande;
recuadrocarga;
barracarga;
bienvenida;
if respuesta=1 then
begin
recibo;
end;

readln;
end.