Задача 2 урок 15

Задача 2 урок 15

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

program U15Z2;
var m: array[1..7] of integer;
procedure p1(var m: array of integer);
var i: integer;
begin
for i:=1 to 7 do
  begin
    writeln('vvedite element massiva ', i,': ');
    readln(m[i]);
  end;
end;
procedure p2(var m: array of integer);
var j: integer;
begin
  for j:=1 to 7 do
  writeln(m[j], ' <--m[',j,']');
end;
begin
  p1(m);
  p2(m);
  readln();
end.