Задача на Паскале. Задан массив случайным образом

uses crt; var a: array[1… 10] of integer; i: integer; beginwriteln ('Исходный массив: '); for i: =1 to 10 do begin a[i]: =random (10- (-10)+1) -10; write (a[i]: 3); end; writeln; for i: =1 to 10 do begin if a[i]>0 then a[i]: =a[i]*2; if a[i]=0 then a[i]: =10; if a[i]<0 then a[i]: =abs (a[i]); write (a[i]: 3); end; end. Здесь массив сделан из 10 чисел от -10 до 10.