LP - Procedure com dois parâmetros em um programa - Pascal

Program Pzim ;
Var n1,n2:integer;


Procedure parametrosoma(a:integer;b:integer);
var soma:integer;
Begin
  soma:= a+b;
  writeln('A soma dos valores é......: ',soma);
End;

Procedure parametrosubtracao(a:integer;b:integer);
var subtracao:integer;
Begin
  subtracao:= a-b;
  writeln('A subtracao dos valores é......: ',subtracao);
End;


Begin
    write ('Digite o valor de um número inteiro..:');
    read(n1);
    write ('Outro valor de um número inteiro..:');
    read(n2);
    
    parametrosoma(n1,n2);
    parametrosubtracao(n1,n2);    
End.