Здраствуйте) Прошу помочь! Мне нужно решить задачу, расписав её для паскаля, прошу очень подробно! Вот сама задача - Дан массив из N элементов. Написать программу, уменьшающую все элементы массива на единицу.

Var a: array of integer; / / Объявление массива целых чисел

i, n: integer; / / объявление целочисленных переменных

begin

/ / Запросим с клавиатуры размер массива

/ / и запишем его в переменную n

write ('введите n:') ;

readln (n) ;

/ / Теперь выделим память под n элементов массива

SetLength (a, n) ;

/ / теперь запросим с клавиатуры n чисел для массива

for i : = 0 to n-1 do begin

write ('a[', i, ']=') ;

readln (a[i]) ;

end;

/ / теперь в цикле уменьшим каждый элемент на единицу

for i : = 0 to n-1 do

a[i] : = a[i] - 1;

/ / распечатаем массив

for i : = 0 to n-1 do

write (a[i], ' ') ;

end.