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