Найти максимальный элемент среди отрицательных элементов массива C

uses crt;
const n=12;
var c,d:array[1..n] of real;
    i,k,imx,imn:byte;
    mn,mx:real;
begin
clrscr;
randomize;
writeln('Массив C:');
k:=0;
imx:=0;
for i:=1 to n do
 begin
  c[i]:=-5+10*random;
  write(c[i]:6:2);
  if c[i]>0 then k:=k+1;
  if c[i]<0 then imx:=i
 end;
writeln;
writeln('Количество положительных=',k);
if imx=0 then writeln('Отрицательных элементов нет')
else
 begin
  for i:=1 to n do
  if(c[i]<0)and(c[i]>c[imx]) then mx:=c[imx];
  writeln('Максимальный из отрицательных=',mx:0:1)
 end;
writeln('Массив D:');
for i:=1 to n do
 begin
  if odd(i) then d[i]:=c[i]-sqr(sin(i))
  else d[i]:=c[i]+sqr(sin(i));
  write(d[i]:6:2);
  if i=1 then
   begin
    mn:=d[1];
    imn:=1
   end
  else if d[i]<mn then
   begin
    mn:=d[i];
    imn:=i
   end;
 end;
writeln;
writeln('Минимальный элемент=',mn:0:2,' его номер=',imn);
readln
end.