Создать массив A (15)

Var a: array[1… 15]of integer; i,max: integer; Begin for i: =1 to 15 do a[i]: =random (100); max: =a[1]+a[2]; for i: =1 to 14 do if max < a[i]+a[i+1] then max: =a[i]+a[i+1]; writeln (max); End.