Андрей составляет 7-буквенные коды из букв А, Н, Д, Р, Е, Й. Буквы А и Й должны встречаться в коде ровно по одному разу, при этом буква Й не может стоять на первом месте. Остальные допустимые буквы могут встречаться произвольное количество раз или не встречаться совсем. Сколько различных кодов может составить Андрей? P.s поподробнее плз

Var
     a,b,c,max:integer;

begin
    writeln('Введите возраст призеров:');
    readln(a,b,c);
    if (a < b) and (a < c) then
    begin
        max := a;
        writeln('Самый младший - первый призер, ему ',max,' лет.');
    end;
    if (b < a) and (b < c) then
    begin
        max := b;
        writeln('Самый младший - второй призер, ему ',max,' лет.');
    end;
    if (c < a) and (c < b) then
    begin
        max := c;
        writeln('Самый младший - третий призер, ему ',max,' лет.');
    end;
end.