1.Задан массив А(120).Подсчитать в нем количество элементов,абсолютная величина которых больше 17 2. Задан массив С(20).Изменить знаки всех нечётных элементов массива на противоположные Помогите пожалуйста

Var
  A: array [1..120] of real;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 120 do
  begin
    A[i] := random(101);
    writeln(A[, i, ] => , A[i]);
  end;
  writeln();
 
  for i := 1 to 120 do
    if abs(A[i]) > 17 then
      inc(res);
 
  writeln(res);
end.

===================

var
  C: array [1..20] of integer;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 20 do
  begin
    C[i] := random(101);
    writeln(C[, i, ] => , C[i]);
  end;
  writeln();
 
  for i := 1 to 20 do
    if C[i] mod 2 = 1 then
      C[i] := -1 * C[i];
 
  writeln(New array:);
  for i := 1 to 20 do
  begin
    writeln(C[, i, ] => , C[i]);
  end;
end.