Посчитать ср. арифм оценок, при условии что оценки на букву k - двойные, а на p-обычные?

var input: string;
    i: integer;
    c: char;
begin
    while true do
    begin
        readln(input);
        c := input[1];
        i := ord(input[2]) - ord('0');
 
        if c = 'e' then
            break;
 
        write(c);
        writeln(i);
    end;
 
  
    
  
end.

var st: string;
    sum,count,t: integer;
begin
    sum := 0;
    count := 0;
    repeat
        readln(st);
        st := Trim(st);
        if Length(st)>0 then begin
           if Length(st)<>2 then raise Exception.Create('Ошибка в '+St+': Длина должна быть два символа');
           if not (st[1] in ['K','P','E']) Then raise Exception.Create('Ошибка в '+St+': Неверный код');
           if st[1]<>'E' then begin
             if not (st[2] in ['2'..'5']) Then raise Exception.Create('Ошибка в '+St+': Неверная оценка');
             t := ord(st[2])-ord('0');
             Inc(sum, t);
             Inc(count);
             if st[1]='K' then begin Inc(sum, t); Inc(count); end;
           end;
        end;
    until st='E0';
    Writeln('Общая сумма: ',sum,' Всего отметок: ',count);
    WriteLn('Среднее значение: ',(sum/count):1:2)  
end.