Поменяйте местами в массиве c[1..n] первый отрицательный и максимальный элементы — Pascal(Паскаль)

uses crt;
var
c:array[1..100] of integer;
n,i,mi,m,oi:integer;
begin
oi:=0;
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
for i:=1 to n do begin
c[i]:=random(100)-49;
if i=1 then begin
m:=c[i];
mi:=i;
end;
if c[i]>m then begin
m:=c[i];
mi:=i;
end;
write(c[i]:4);
end;
for i:=n downto 1 do begin
if c[i]<0 then oi:=i;
end;
if oi>0 then begin
c[mi]:=c[oi];
c[oi]:=m;
end;
writeln;
for i:=1 to n do begin
write(c[i]:4);
end;
readln;
end.