Программирование Pascal. Изменить определенное значение в массиве, если значение отрицательное, то поменять знак элемента.

Замена отрицательных на положительные: Так нужно было? uses crt;var mas:array [1..6] of integer; a,i,j:integer; beginrandomize;      for i:=1 to 6 do      begin      mas[i]:=random(60)-50;        writeln(i:2,' ',mas[i])     end;       readln;     for i:=1 to 6 do     begin     if mas[i]<0 then mas[i]:=abs(mas[i]);     writeln(i:2,' ',mas[i]);      end;      readln;     end.