Заполнить массив из 10 элементов случайными числами из интервала от -10 до 10, вывести на экран , а затем увеличить каждый элемент массива на 1 и повторно вывести на экран

Извините пожалуйста, забыл написать: перед вторым циклом for впишите "Writeln()";

Pascal:program project1;var a:array[1..10] of integer;      i:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(20)-10;write(inttostr(a[i]) + ' ' );end;for i:=1 to 10 dobegininc(a[i]);write(inttostr(a[i]) + ' ' );end;end.