Помогите с boolean, comp, char Опции

[Вячеслав Л.]

Задание:
Написать программу, использующую при своей работе не меньше 3х переменных boolean.
То же самое для comp и char. То есть три разных программы. Натолкните хотя бы на мысль - не представляю, что это должны быть за программы - сами проги уже попытаюсь написать сам.

[Вячеслав Л.]

Мне лично более всего понравилась запись:

plyag := (not dojd) and sonce;

Имхо, кажется, наиболее логичной и понятной.

Я понял, что мне надо попробовать для начала написать прогу, определяющую надо ли идти на пляж в зависимости от dojd и sonce. Получилось что-то такое:

var
dojd,sonce,plyag:boolean;
begin
read(dojd);
read(sonce);
plyag := (not dojd) and sonce;
write('plyag = ',plyag);
end.

Появляется "ошибка:нельзя вводить данные этого типа". Где я неправ?

З.Ы. можна развить идею, добавив - comp - температура, а char - дни недели например
Получишь програму определяющую стоит тебе сидеть дома, или пойти на пляж, при заданых температуре, дне недели и состоянии погоды

Как это сделать я незнаю (за 40 мин в неделю мы не много успеваем ), напишите примерный алгоритм, пожалуйста.

Еще вопрос, что это за программа такая?

var
  i : array[0..2]of integer;
  b : array[0..2]of boolean;
  c : array[0..2]of comp;
  d : array[0..2]of char;
begin
  for i[0] := 0 to 2 do
    b[i[0]] := i[0] = 1;
  for i[1] := 0 to 2 do
    c[i[1]] := i[1];
  for i[2] := 0 to 2 do
    d[i[2]] := char(byte('0') + i[2]));
end.

Поясните, пожалуйста, что она делает и как работает (прокомментируйте короче )?