Составить программу, организующую работу с пользователем в диалоговом режиме

{Составить программу, организующую работу с пользователем в диалоговом
режиме: программа запрашивает слово, начинающиеся на определенную букву,
проверяет правильность ввода такого слова и выводит следующий запрос.
Окончание работы - ввод пустой строки. Программа также должна подсчитать
количество правильных ответов и выводить, сколько баллов набрал пользователь
и количество попыток.}
var
  ch:char;
  s:string;
  i,kolpr,kol:integer;
  bal:real;
begin
  s:='';
  kol:=0; kolpr:=0;
  while true do
    begin
      inc(kol);
      write('Введите букву, на которую должно начинаться слово: ');  read(ch);
      readln;
      write('Введите слово: '); readln(s);
      if s[1]=ch then
        inc(kolpr);
      if s='' then
        break;
    end;
  writeln('Количество попыток: ',kol-1);
  writeln('Количество правильных попыток: ',kolpr);
  {не написано как баллы считать , поэтому считаем проценты} 
  if kolpr=0 then
    bal:=0
  else
    bal:=kolpr/(kol-1)*100;
  writeln('Количество баллов: ',bal:8:2);
  readln;
end.