Каждый отрицательный элемент массива заменить на его абсолютную величину

const n = 12;
var
  a : array[1..n]of real;
  i,k1,k2 : byte;
Begin
  randomize;
  writeln('ishodnyj: ');
  for i:=1 to n do begin
    a[i]:=random(148)/7-10;
    write(a[i]:0:2,' ');
  end;
 
  writeln;writeln('a) :');
  for i:=1 to n do begin
    if a[i]<0 then a[i]:=abs(a[i]);
    write(a[i]:0:2,' ');
  end;
 
  writeln;writeln('b) :');
  for i:=1 to n do begin
    if odd(i) then a[i]:=sqrt(a[i]);
    write(a[i]:0:2,' ');
  end;
 
  writeln;writeln('v) :');  // задание в) некорректное, т.к. после всех действий в а) и б) отрицательных не осталось
  write('input k1,k2: ');readln(k1,k2);
  for i:=1 to n do begin
    if a[i]>0 then a[i]:=a[i]-a[k1] else a[i]:=a[i]-a[k2];
    write(a[i]:0:2,' ');
  end;
 
  writeln;writeln('g) :');
  for i:=1 to n do begin
    if odd(i) then a[i]:=a[i]+1 else a[i]:=a[i]-1;
    write(a[i]:0:2,' ');
  end;
 
  readln;
End.