Дан одномерный массив из n элементов, найти max, поменять его местами с первым элементом, результат вывести на экран (Программа в Паскале)

Program ideone;

var

arr: array[1 ... 10] of integer;

i, max: integer;

begin

randomize;

max : = 0;

for i:=1 to length (arr) do

begin

arr[i] : = random (100) ;

if arr[i] > = arr[max] then

begin

max : = i;

end;

end;

i : = arr[1];

arr[1] : = arr[max];

arr[max] : = i;

for i:=1 to length (arr) do

begin

writeln (arr[i]) ;

end;

end.