Помогите сделать ввод количества элементов массива и сами элементы массива

var
a:array [1..25] of integer;
i:integer;
BEGIN
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to 25 do
begin
a[i]:=random(30)-15; write(a[i]:4);
if (a[i]<0) then a[i]:=0;
end;
writeln;
writeln('Массив B:');
for i:=1 to 25 do write(a[i]:4);
END;
end.

uses
  crt;
 
var
  a: array of integer;
  size: integer;
 
procedure GetLength(); //Вводим длину массива
begin
  writeln('Введите количество элементов');
  readln(size);
  SetLength(a, size);
end;
 
procedure FillArray(); //Вводим значения для каждого элемента массива
begin
  var i: integer; //Переменная для счетчика
  GetLength(); //Вызываем процедуру, описанную выше
  for i := 0 to size - 1 do {Цикл с счетчиком. Для каждого i элемента массива проводим чтение. 
В динамических массивах нумерация происходит с ноля}
  begin
    writeln('Введите ', I + 1, ' элемент массива: ');
    readln(a[i]); //Собственно, ввод
  end;
end;
 
procedure PrintArray(); //Процедура вывода на экран вашего массива
begin
  writeln('Введенный вами массив: ');
  for var i := 0 to size - 1 do
    writeln(a[i]);
end;
 
begin //Основное тело программы
  clrscr;
  FillArray();
  PrintArray();  
end.