Водномерной числовой таблице (числа от -6 до 17) заменить все отрицательные элементы их модулями. паскаль. можно прямо программой?

Возможности графического редактора Photoshop от компании Adobe позволяют делать любые операции над изображениями. Начиная с рисования простых фигур и линий кистью, и заканчивая созданием сложных многослойных композиций с применением корректирующих слоёв,  эффектов наложения, фильтров и 3d объектов. С его можно выравнивать цвета и положение объектов на неправильно сделанных снимках, производить восстановление и коррекцию старых фотографий либо повреждённых изображений. Можно делать анимированные изображения, например, gif анимацию. Имея графический планшет можно рисовать настоящие картины, как если бы мы использовали обычную кисть и холст, т.к. большое разнообразие кистей и их настроек позволяет в умелых руках буквально творить чудеса. Инструменты автоматизации, подключаемые фильтры и плагины, а также ряд других профессиональных возможностей позволяют упростить многие операции, а многие делать буквально в 1 клик мыши в автоматическом режиме сразу над несколькими тысячами файлов.

Var l:char;i,n,a,k,m,d,q:integer;s:string;
label z;
begin
randomize;
writeln ('Введите количество паролей');
writeln ('Из чего состоят пароли?');
z:writeln ('1 - буквы 2 - цифры 3 - и буквы и цифры');
readln (a);
if (a<>1)and (a<>2)and (a<>3)then
begin
writeln ('Неправильный ввод. Ввести заново (0 - да / 1 - нет)?');
read (q);
if q=0 then goto z else halt;
end else
begin
writeln ('Введите количество паролей: ');
readln (n);
writeln ('Введите длину пароля: ');
readln (k);
writeln ('Пароли:');
if a=1 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s:=s+chr(random(26)+97);
writeln(s);
s:='';
end;
end;
if a=2 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(10)+48);
writeln(s);
s:='';
end;
end;
if a=3 then
begin
for i:=1 to n do
begin
for d := 1 to k do
s := s + chr(random(26)+97)+chr(random(10)+48);
delete(s,k,k);
writeln(s);
s:='';
end;
end;
end;
end.