Задача в паскале: Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями

var a: array [ 1..10 ] of integer; // введённые пользователем числа будут являться элементами массива и в ходе программы изменяться. i: byte;

begin

cls; for i := 1 to 10 do begin write ( \'Введите \', i, \' число: \' ); readln ( a[ i ] ); end; for i := 1 to 10 do begin a [ i ] := abs ( a[ i ] ); write ( a [ i ], \' \' ); end;end.