Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш» - Turbo Pascal

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

1. Даны названия 26-ти городов и стран, в которых они находятся. Среди них есть города, находящиеся в Италии. Напечатать их названия 2. Известно расписание поездов, проходящих через станцию: номер поезда, назначение (откуда куда, например, Москва – Омск), часы и минуты прибытия, часы и минуты отправления. Значения часов и минут целые, положительные; число часов не превышает 23, число минут – 59. Общее число проходящих поездов равно 25, Поезда приходят каждый день. По данному времени определить, какие поезда (номер и назначение) стоят в этот момент на станции. 3. Количество мячей, забитых и пропущенных футбольной командой в каждой из 22-х игр, записано в массиве, элементами которого являются величины типа «запись». а) Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш». б) Определить количество выигрышей данной команды. в) Определить количество выигрышей и количество проигрышей данной команды

Решение задачи: «Для каждой проведенной игры напечатать словесный результат: «выигрыш», «ничья» или «проигрыш»»

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

const
  n=26;
type
  map=record
      citi: string;
      coun: string;
    end;
var
  a: array[1..n] of map;
  i: integer;
begin
  writeln('Введите данные о городах и странах:');
  for i:=1 to n do
  begin
    with a[i] do
    begin
      write(i,'-й город: ');
      readln(citi);
      write('    страна: ');
      readln(coun);
    end;
  end;
  writeln('Итальянские города:');
  for i:=1 to n do
    with a[i] do
      if coun='Италия' then
        writeln(citi);
  readln;
end.

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

В коде объявлены переменные n, map, a, i, coun и citi.
Переменная n инициализируется значением 26.
Создается тип данных map, который представляет собой запись с двумя полями: citi (город) и coun (страна).
Переменная a инициализируется массивом, который может хранить до 26 записей типа map.
Переменная i инициализируется значением 1, что соответствует началу цикла.
Запускается цикл for, который выполняется от 1 до 26 (n).
Внутри цикла создается блок с именем a[i], который представляет собой отдельную запись типа map.
Внутри блока a[i] считывается информация о городе и стране.
Если страна равна Италия, то выводится название города.
Цикл for завершается, и программа переходит к следующему шагу.
Выводится сообщение Итальянские города:.
Запускается еще один цикл for, который выполняется от 1 до n.
Внутри цикла выводится информация о городе, если страна равна Италия.
Программа заканчивается, и пользователь должен увидеть список городов, которые относятся к Италии.