Дан одномерный массив из 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.