Увеличить число элементов массива. Описать размерность массива с помощью переменных. - PascalABC.NET

Формулировка задачи:

Program Primer1; uses crt;
 var a: array[1..5] of integer;
 i: integer;
Begin
 clrscr;
 for i:=1 to 5 do
 begin
 write('a[',i,']='); readln(a[i]);
 end;
 clrscr;
 Write('Массив А: '); for i:=1 to 5 do write(a[i],' ');
 readkey;
End.

Задание: 1)Увеличить число элементов массива 2)Описать размерность массива с помощью переменных.

Решение задачи: «Увеличить число элементов массива. Описать размерность массива с помощью переменных.»

Листинг программы

 var a: array[1..100] of integer;
 i,n,m: integer;
begin
  write('Размер массива: '); n:=ReadlnInteger;
  for i:=1 to n do
    begin
      write('a[',i,']='); a[i]:=ReadlnInteger;
    end;
  write('Массив А: '); for i:=1 to n do write(a[i],' ');
  writeln; write('Сколько элементов добавить: '); m:=ReadlnInteger;
  for i:=n+1 to n+m do
    begin
      write('a[',i,']='); a[i]:=ReadlnInteger;
    end;
 write('Массив А: '); for i:=1 to n+m do write(a[i],' ');
end.

Объяснение кода листинга программы

Объявляется массив a размером от 1 до 100
Задаются начальные значения переменных i, n, m равные 0
Выводится сообщение Размер массива: и считывается значение n с помощью функции ReadlnInteger
В цикле от 1 до n происходит считывание значений элементов массива a с помощью функции ReadlnInteger
Выводится сообщение Массив А: и в цикле от 1 до n выводятся значения элементов массива a с помощью функции write
Выводится сообщение Сколько элементов добавить: и считывается значение m с помощью функции ReadlnInteger
В цикле от n+1 до n+m происходит добавление новых элементов в массив a с помощью функции ReadlnInteger
Выводится сообщение Массив А: и в цикле от 1 до n+m выводятся значения элементов массива a с помощью функции write