Определение количества городов, в которых количество проданных путевок в апреле превышает 100 - Pascal

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

Помогите исправить ошибку. 11. По данным, содержащимся в таблице Путевки, создайте программу для определения количества городов, в которых количество проданных путевок в апреле превышает 100 Входные данные - количество проданных путевок к каждому из указанных в таблице городов по апрель. Выходные данные - значение количества городов, соответствующие указанной условии. Продажа туристических путевок Страна Город апрель Украина Ялта 15 Украина Алушта 20 Украина Бердянск 25 Египет Хургада 184 Египет Шарм Эль Шейх 207 Турция Анталия 86 Турция Кемер 115

var
 A: array [ 1 .. 7 ] of integer;
 i, znachenie,sum, count: integer;
 begin
 
for i:=1 to 7 begin
write('a[,'i,']=');        ........... //Выдает сообщение Project15.pas(8) : Встречено 'i', а ожидалось ')'
readln(a[i]);
end;
write('Введите значение:');readln(znachenie);
sum:=0;count:=0;
for i:=1 to 7 do
 if a[i] > 100 then begin
     
 sum:=sum+a[i];
 writeln('Количество городов =',sum);
end;
 
end.

Решение задачи: «Определение количества городов, в которых количество проданных путевок в апреле превышает 100»

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

var
  A: array [1..7] of integer;
  i, count: integer;
 
begin
  count := 0;
  for i := 1 to 7 do
  begin
    write('a[', i, ']=');        
    readln(a[i]);
    if a[i] > 100 then 
      inc(count);
  end;
  writeln('Количество городов = ', count);
end.

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

Объявляется массив A с 7 элементами типа integer: A: array [1..7] of integer;
Объявляются переменные i и count типа integer: i, count: integer;
Присваивается начальное значение 0 переменной count: count := 0;
Начинается цикл от 1 до 7
Для каждой итерации цикла выводится приглашение Введите значение для a[i]:
Пользователь вводит значение для каждого элемента массива A[i]
Если значение a[i] больше 100, увеличивается значение переменной count на 1: if a[i] > 100 then inc(count);
После завершения цикла выводится количество городов, в которых количество проданных путевок в апреле превышает 100: writeln('Количество городов = ', count);
Завершается выполнение программы.