Дан массив целых чисел из 10 элементов поменять местами первый максимальный и последний отрицательный элементы массива. Составить программу в паскале

Var A:array[1..10] of integer; i,m,o:integer; Begin WriteLn('Введите массив'); For i:= 1 to 10 do     Begin     Read(A[i]);     End; m:=10; For i:= 9 downto 1 do     if A[i]>=A[m] then m:=i; For i:= 10 downto 1 do     if A[i]<0 then     Begin     o:=i;     Break     End; if o = 0 then WriteLn('Отрицательных чисел нет!') else Begin i:=A[o]; A[o]:=A[m]; A[m]:=i; For i:= 1 to 10 do     Write(A[i],' ') End; End.