Составить программу которая организует ввод массива с клавиатуры а затем заменяет все отрицательные числа модулями

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a:=ReadArrInteger('Вводите данные:',ReadInteger('n='));
  a:=a.Select(x->Abs(x)).ToArray; a.Println
end.

Пример
n= 5
Вводите данные: 4 -2 0 4 -7
4 2 0 4 7

Var a:array of integer;
var i, n:integer;
begin
readln(n);//количество считываемых чисел
a := new integer[n];
for i:=1 to n do begin
read(a[i]);
a[i] := abs(a[i]);
end;
end.