100 баллов, как можно быстрее, пожалуйста). Надо написать программу на языке Pascal. Попроще желательно)

var a:array[1..10] of longint;

i,m:longint;

begin

for i:=1 to 10 do

begin

a[i]:=random(10);

if a[i]>m then m:=a[i]

end;

for i:=1 to 10 do print(a[i]);

writeln;

for i:=1 to 10 do

begin

if a[i]=m then a[i]+=2;

print(a[i])

end

end.