Ввод чисел с клавиатуры и вывод их на экран - Pascal ABC

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

Всем привет, можете помочь.

program massiv;
const m=10;
var mass1:array[1..m] of integer;
    mass2:array[1..m] of real;
    i:integer;
 begin
 for i:=1 to m do  mass1[i]:=random(50);
 for i:=1 to m do
 mass2[i]:=mass1[i]/2;
 write('исходный массив: ');
  for i:=1 to m do write(mass1[i],' ');
  writeln;
  write('Обработанный массив: ');
 for i:=1 to m do write(mass2[i], ' ');
 writeln;
 end.

На данный момент у меня выводятся 10 чисел( Const m=10) а нужно сделать, чтобы мы вводили с клавиатуры число, и столько же чисел выводилось на экран. Например: Написали 18 и вывелось на экран 18 чисел, и.т.д. Вполне легко, но я так и не разобрался

Решение задачи: «Ввод чисел с клавиатуры и вывод их на экран»

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

const m=100;
var mass1:array[1..m] of integer;
    mass2:array[1..m] of real;
    n,i:integer;
 begin
 randomize;
 write('Размер массива n=');
 readln(n);
 for i:=1 to n do  mass1[i]:=random(50);
 for i:=1 to m do
 mass2[i]:=mass1[i]/2;
 write('исходный массив: ');
 for i:=1 to n do
  begin
   mass[i]:=random(50);
   write(mass1[i]:4);
  end;
  writeln;

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

const m=100; - задается значение переменной m равное 100
var mass1:array[1..m] of integer; - объявляется переменная mass1 типа array[1..m] of integer, которая будет использоваться для хранения целых чисел
var mass2:array[1..m] of real; - объявляется переменная mass2 типа array[1..m] of real, которая будет использоваться для хранения вещественных чисел
var n,i:integer; - объявляются две переменные типа integer - n и i, которые будут использоваться для цикла ввода и вывода чисел
randomize; - вызывается функция randomize для инициализации генератора случайных чисел
write('Размер массива n='); - выводится сообщение Размер массива n=
readln(n); - считывается значение переменной n с клавиатуры
for i:=1 to n do mass1[i]:=random(50); - в цикле for i от 1 до n вычисляется случайное число от 0 до 50 и присваивается элементу массива mass1[i]
for i:=1 to m do mass2[i]:=mass1[i]/2; - в цикле for i от 1 до m вычисляется среднее значение элементов массива mass1[i] и присваивается элементу массива mass2[i]
write('исходный массив: '); - выводится сообщение исходный массив:
for i:=1 to n do begin mass[i]:=random(50); - в цикле for i от 1 до n вычисляется случайное число от 0 до 50 и присваивается переменной mass write(mass1[i]:4); - выводится значение элемента массива mass1[i] с префиксом mass1 end;
writeln; - выводится символ новой строки
end. - завершается программа