исправить ошибку в программе. Пишет, что в 8 строке нет индексного свойства по умолчанию для типа integer

Program ABC;
const n=14; a=-20; b=10;
Var m: array[1..n] of integer;
i, max: integer;
begin
for i:=1 to n do m[i]:=random(b-a)+a;
for i:=1 to n do write(m[i]:6);
max:=a[1]+a[n];
for i:=2 to n do
if max writeln ( 'maksimalnaya summa ravna', max);
readln;
end.

1). Ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків.
2). Завжди дотримуйтесь сімейних правил Інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.
3). Завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.
4). Не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.

#include <iostream>

#include <vector>

#include <cmath>

using namespace std;

struct river{

   string name;

   double length;

   double depth;

   bool ships;

};

signed main(){

   int n;

   cin >> n;

   river a[n];

   for(int i = 0; i < n; i++)

       cin >> a[i].name >> a[i].length >> a[i].depth >> a[i].ships;

   vector<river> ans;

   for(auto i: a)

       if(i.length > 2 && i.ships)

           ans.push_back(i);

   for(auto i: ans){

       cout << "name: " << i.name << "\n";

       cout << "length: " << i.length << "\n";

       cout << "depth: " << i.depth << "\n";

       cout << "ships?: Yes";

   }

}