Exercicio 5 de funções

Program Pzim ;
{criar um programa para ler dois numeros e chamar uma função que retorne se os valores
recebidos são iguais ou diferentes.  o programa será finalizado se por digirado um valor
negtivo para o primeiro numero}

var
num1, num2:integer;
r_compara:string;
//inicio da função
function compara(x1,x2:integer):string;
    begin
        if (x1=x2) then
            compara:='Os números são iguais'
        else
            compara:='Os números são diferentes'
    end;
//fim da função
//inicio do algoritmo
 Begin
     writeln('Digite o primeiro número : ');
     readln(num1);
     if (num1>=0) then
         begin
             writeln('Digite o segundo número : ');
             readln(num2);
              r_compara:=compara(num1,num2);
             writeln(r_compara);
         end
    else
        begin
            writeln('Finalizando o Algoritmo');
        end;
 End.