Дан массив содержащий n(n

//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array of integer;
i,n:integer;
begin;
randomize;
readln(n);
if n>100 then exit;
setlength(ar,n+1);
writeln(First array:);
for i:=1 to n do
begin;
ar[i]:=random(-10,10);
  write(ar[i]:5);
     if ar[i]>0 then ar[i]:=ar[i]+5
     else ar[i]:=abs(ar[i]);
end;
writeln;
writeln(Final array:);
for i:=1 to n do
write(ar[i]:5);
end.

Пример ввода:
2
Пример вывода:
First array:
    2   -1
Final array:
    7    1