LP - Duas procedures em um mesmo programa - Pascal

Program Procedure;

Procedure soma;
var n1,n2,soma:integer;
Begin
  write('Digite o número 1....: ');
  read(n1);
  write('Digite o número 2....: ');
  read(n2);
  soma:=n1+n2;
  writeln('A soma dos números é ',soma);
End;

Procedure subtracao;
var n1,n2,subtracao:integer;
Begin
  write('Digite o número 1....: ');
  read(n1);
  write('Digite o número 2....: ');
  read(n2);
  subtracao:=n1-n2;
  writeln('A subtração dos números é ',subtracao);
End;



Begin
    writeln ('SOMA');
    soma;
    writeln ('SUBTRAÇÃO');
    subtracao;
End.