Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль. Запишите с помощью массивов.

var a:array of integer;          i,n:integer;beginwrite('Задайте размер массива: ');readln(n);setlength(a,n);for i:=0 to n-1 do readln(a[i]);writeln('Массив до обработки: ',a);for i:=0 to n-1 do if a[i] < 0 then a[i]:= abs(a[i]);writeln('Массив после обработки: ',a);end.