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

Формулировка задачи:

Срочно нужно для экзамена, хелп(PASCAL ABC) Составить программу, организующую работу с пользователем в диалоговом режиме: программа запрашивает слово, начинающиеся на определенную букву, проверяет правильность ввода такого слова и выводит следующий запрос. Окончание работы – ввод пустой строки. Программа также должна подсчитать количество правильных ответов и выводить, сколько баллов набрал пользователь и количество попыток.

Решение задачи: «Составить программу, организующую работу с пользователем в диалоговом режиме»

Листинг программы

var
    s : String;
    c : Char;
    count : Byte = 3;
    corrCount : Byte = 0;
begin
    Randomize;
    c := Chr(Random(64) + 192);
    Write('Введите слово, начинающееся на букву ', c, ': ');
    ReadLn(s);
    while ((Length(s) <> 0) And (count <> 0)) do
    begin
        if (s[1] = c) then
        begin
            Inc(corrCount);
            WriteLn('Верно! Количество верных ответов: ', corrCount);
        end
        else
        begin
            Dec(count);
            WriteLn('Неверно! У Вас осталось ', count, ' попытки(ка)');
        end;
        c := Chr(Random(64) + 192);
        Write('Введите слово, начинающееся на букву ', c, ': ');
        ReadLn(s);
    end;
    WriteLn;
    WriteLn('Правильных ответов: ', corrCount);
end.

Объяснение кода листинга программы

Объявляются переменные: s (строка), c (символ), count (байт), corrCount (байт).
Выполняется инициализация переменной Randomize.
Генерируется случайное число от 1 до 63 с помощью функции Random(64) + 192 и преобразуется в символ с помощью функции Chr(). Полученный символ сохраняется в переменной c.
Выводится сообщение с просьбой ввести слово, начинающееся на букву указанного символа.
Считывается введенное слово с помощью функции ReadLn(s).
Инициализируется счетчик count = 3 и переменная corrCount = 0.
Запускается цикл while, который выполняется до тех пор, пока длина введенного слова не равна нулю и счетчик count не равен нулю.
Внутри цикла проверяется, совпадает ли первая буква введенного слова с указанной буквой.
Если совпадает, то увеличивается значение переменной corrCount.
Выводится сообщение с предложением ввести слово, начинающееся на букву указанного символа.
Считывается введенное слово с помощью функции ReadLn(s).
Снижается значение счетчика count на единицу.
Генерируется новый символ с помощью функции Random(64) + 192 и сохраняется в переменной c.
Цикл while повторяется, начиная с пункта 8.
По окончании цикла выводится сообщение с количеством правильных ответов, которое сохранено в переменной corrCount.
Выводится символ новой строки для перехода на следующую строку вывода.
Выводится общее количество правильных ответов, которое сохранено в переменной corrCount.