Составьте программу, определяющую, учатся ли два школьника в параллельных классах - Pascal

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

Помогите, пожалуйста. Составьте программу, определяющую, учатся ли два школьника в параллельных классах. Если сможете, ещё и объясните, как делали, пожалуйста. Заранее огромное спасибо!

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

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

const NY: array [Boolean] of String[3] = ('НЕ ','');
var n1, n2: Integer; t, c1, c2: Char;
begin
  Write('Номер и буква класса ученика 1: '); ReadLn(n1,t,c1);
  Write('Номер и буква класса ученика 2: '); ReadLn(n2,t,c2);
  Write('Ученики учатся ',NY[(n1=n2) and (c1<>c2)],'в параллельных классах');
end.

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

Объявляется массив констант NY и инициализируется массивом строк: ('НЕ ',''). Этот массив содержит ответы ДА и НЕТ для использования в выводе.
Объявляются переменные n1, n2, t, c1, c2 типа Integer и Char для хранения номера и буквы класса учеников.
Выводится приглашение Номер и буква класса ученика 1: и считываются значения для n1, t и c1.
Выводится приглашение Номер и буква класса ученика 2: и считываются значения для n2, t и c2.
Определяется, учатся ли ученики в параллельных классах с помощью выражения (n1=n2) and (c1<>c2), и результат выводится с использованием значения из массива NY в виде Ученики учатся 'в параллельных классах' в соответствии с результатом.