Задачка в паскале: Ввести с клавиатуры 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.