Необходимо перевести задачу из C++ В Паскаль

const
    sp5 = '               ';
    n = 20;
 
var
    i: Byte;
    n5, s, nrsol5: Integer;
    x5, nr, val, sum: Array[1..20] Of Integer;
 
function Valid5(const k: Byte): Boolean;
begin
    sum[k] := sum[k - 1] + val[k] * x5[k];
    Valid5 := ((sum[k] > s) Or ((k = n5 ) And (sum[k] <> s)));
end;
 
procedure Afisare5();
begin
    Write(sp5);
    for i := 1 to n5 do
        if (x5[i] <> 0)
        then
            Write(x5[i], '*', val[i], ' lei + ');
    WriteLn;
    Inc(nrsol5);
end;
 
procedure Back5();
var
    cand: Boolean;
begin
    i := 1;
    x5[1] := -1;
    while (i > 0) do
    begin
        cand := False;
        while ((Not cand) And (x5[i] < nr[i])) do
        begin
            Inc(x5[i]);
            cand := Valid5(i);
        end;
        if (Not cand)
        then
            Dec(i)
        else
            if (i = n5)
            then
                Afisare5()
            else
            begin
                Inc(i);
                x5[i] := -1;
            end;
    end;
end;
 
begin
    nrsol5 := 0;
    WriteLn; WriteLn; WriteLn(sp5, 'Plata unei sume de bani'); WriteLn;
    WriteLn; Write(sp5, 'Numarul tipuri monezi: '); ReadLn(n5);
    Write(sp5, 'Dati suma de plata: '); ReadLn(s); WriteLn;
    for i := 1 to n5 do
    begin
        Write(sp5, 'Valoare moneda tip ', i, ': '); ReadLn(val[i]);
        Write(sp5, 'Numar monezi tip ', i, ': '); ReadLn(nr[i]);
    end;
    WriteLn; WriteLn('Solutiile sunt:');
    Back5();
    WriteLn; Write(sp5, 'Numar solutii: ', nrsol5);
end.

var
    j:byte;

x5, nr, val, sum: Array[1..20] Of Integer;