LP - Duas funções em um mesmo programa - Pascal

Program Pzim ;
Var n1,n2:integer;


function soma(a:integer;b:integer):integer;
Begin
  soma:= a+b;
End;

function subtracao(a:integer;b:integer):integer;
Begin
  subtracao:= a-b;
End;


Begin
    write ('Digite o valor de um número inteiro..:');
    read(n1);
    write ('Outro valor de um número inteiro.....:');
    read(n2);
    
    writeln('A soma dos valores é ',soma(n1,n2));
    write('A subtração dos valores é ',subtracao(n1,n2));
End.