Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа - Pascal ABC

Var n : string;
    S, D, k, i, code : integer;
begin
Writeln('Enter n');
Readln(n);//ввод числа, число считывается в формате строки
S:=0;//начальная установка для суммы
D:=1;//начальная установка для произведения
//цикл прохода по вводимому числу
For i:=1 to length(n) do
    begin
    val(n[i], k, code);//преобразовываем текущий элемент строки в цифру
    S:=S+k;//формируем сумму
    D:=D*k;//формируем произведение
    end;
If (s-d=1) then Writeln('Yes') else Writeln('No');
Readln;
end.