Если массив не содержит отрицательных элементов, то удвоить последний максимальный элемент массива

Program ilya14;
uses crt;
var A:array[1..100] of integer;
      N,i,k,max,imax:integer;
begin
clrscr;
writeln('vved N=');
readln(N);
for i:=1 to N do
A[i]:=-50+random(100);
for i:=1 to N do
max:=A[i];
imax:=1;
  for i:=1 to N do
  if max<A[i] then
  max:=A[i];
  imax:=i;
  if A[i]<0 then imax:=2*imax;
for i:=1 to N do
if A[i] mod 2=0 then k:=k+1;
if k=N then
A[i]:=-99;
writeln(A[i]:6);
readln;
end.

Program ilya14;
uses crt;
var A:array[1..100] of integer;
    N,i,max,maxi:integer;
begin
 clrscr;
 randomize;
 writeln('vved N=');
 readln(N);
 for i:=1 to N do 
  begin
   A[i]:=-5+random(56);
   write(a[i],' ')
  end;
 writeln; 
 maxi:=1;max:=A[1];i:=0;
 repeat
   inc(i);
   if a[i]>=max
    then
     begin
      max:=a[i];
      maxi:=i
     end;
 until (a[i]<0) or (i=n);  
 if (i=n)and(a[n]>=0) 
  then a[maxi]:=2*max
  else for i:=1 to N div 2 do A[i*2]:=-99;
  for i:=1 to N do write(a[i],' ');  
 readln;
end.