Convert Decimal to Binary Function

function Dec2Bin() : string;
var input, x:   integer;
var resultado:  string;
begin
    writeln('');
    write('Qual o numero a ser convertido? ');
    readln(input);
    x:= input;
    resultado:= '';

    while (input > 0) do begin
        if (input mod 2 = 0) then
            resultado:= '0' + resultado
        else
            resultado:= '1' + resultado;

        input :=  input div 2;
     end;

    writeln(x ,' decimal = ', resultado, ' binario');
    writeln('');

    writeln('O que deseja fazer agora? Pressione 0 (zero) para sair, ou qualquer outro numero para continuar');
    read(op);
readln;
end;