Помоги пожалуйста с задачей по паскалю в массиве из 15 случайных целых чисел на…

Vari: integer; a: array[1… 15] of integer; begin randomize; Writeln ('Исходный массив'); for i: =1 to 15 do begin a[i]: =random (91)+10; write (a[i]: 5) end; for i: =1 to 15 do begin if a[i]=0 then a[i]: =i*i else a[i]: =a[i]*(-1); end; Writeln; Writeln ('Результирующий массив'); for i: =1 to 15 do write (a[i]: 5); readlnend. Последнее условие можно было не проверять — до него не дойдет из условия [10; 100]