Выполнить данную программу в паскале, желательно попроще. 100 баллов, как можно быстрее, пожалуйста)

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

i,m:longint;

begin

for i:=1 to 10 do

begin

a[i]:=random(10);

if i=1 then m:=a[1] else

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.