Дан массив A(7). Все отрицательные элементы массива возвести в квадрат

Uses Crt;
const 
N=7;
var 
a: array [1..N] of real;
begin
for var i:=1 to N do begin
a[i]:=random(-10,10);
end;
for var i:=1 to N do begin
write(a[i],' ');
end;
writeln;
write('kvadrat otrisatelnih ');
for var i:=1 to N do begin
if a[i]<0 then begin
write(sqr(a[i]),' ');
end;
end;
writeln;
write('koren polositelnih ');
for var i:=1 to N do begin
if (a[i]>0) or (a[i]=0) then begin
write(sqrt(a[i]),' ');
end;
end;
end.

const
  n = 7;
 
var
  a: array[1..n] of real;
  i: integer;
 
begin
  writeln('Source array:');
  for i := 1 to n do
    begin
      a[i] := 10 - 20 * random;
      write(a[i]:9:5)
    end;
  writeln;
  writeln('Modified array:');
  for i := 1 to n do
    begin
      if a[i] <= 0
        then a[i] := sqr(a[i])
        else a[i] := sqrt(a[i]);
      write(a[i]:9:5)
    end
end.

begin
  var a := ArrRandomReal(7, -10, 10);
  writeln('Исходный массив:');
  a.PrintLn;
  a := a.Select(v -> v <= 0 ? sqr(v) : sqrt(v)).ToArray;
  writeln('Преобразованный массив:');
  a.PrintLn
end.