Дан массив из n элементов.написать программу, уменьшающую все элементы массива на еденицу

var
  A: array [1..10] of integer;
  i, n: integer;
begin
  for i := 1 to 10 do
  begin
      write('Введите A[', i, '] = ');
      readln(A[i]);
  end;
  writeln('Ваш массив.');
  for i := 1 to 10 do
    write(A[i]:4);
  writeln('Все элементы массива были уменьшены на 1.');
  for i := 1 to 10 do
  begin
      A[i] := A[i] - 1;
      write(A[i]:4);
  end;
end.