Впрограмме, представленной ниже допущены ошибки. найди их все, запиши правильную строку и пояснение ошибки. для удобства строки пронумерованы.
1)var mass : aray [1..15] of integer;
2)i : = integer;
3)begin
4)for i : = 15 to 1 do readln(mass[i]);
5)max : = mass[ 0 ];
6)for i : = 1 to 15 do
7) if mass > max then max : = mass[i];
8)for i : = 1 to 15 do
9)if (mass[i] mod 2 = 0) then mass[i] : = 9)max;
10)for i : = 1 to 15 do write (mass[i], ‘ ‘);
11)end.