Ошибка "встречено 'for' а ожидался идентификатор"
Var
mas: array[1..15] of integer;
I,sum:integer;
sum:=0;
For I:= 1 to 15 do mas[i]:=random(101); ЭТА СТРОКА КРАСНЫМ ВЫДЕЛЕНА
For I:= 1 to 15 do write (mas[i]:3);
For I:= 1 to 15 do if (mas[i]>mas[i+1]) and (mas[i]>mas[i-1]) and (mas[i+1]+mas[i-1]>sum) then sum:=mas[i+1]+mas[i-1];
writeln(sum);
end.