Создание динамического массива

uses crt;
var a:array of integer;
    n,i:integer;
begin
clrscr;
write('n=');
readln(n);
setlength(a,n);
for i:=0 to n-1 do
 begin
  a[i]:=i+1;
  write(a[i],' ');
 end;
readln
end.

program test;
 
{$mode fpc}
 
var
  n: integer;
  i: integer;
  a: pinteger; // указатель целого типа
begin
  Write('Input n: ');
  ReadLn(n);
 
  // выделям область памяти достаточную для хранения n элементов типа integer
  GetMem(a, n * sizeof(integer)); 
 
  // заполняем массив цифрами от 1 до n(индексация в динамическом массиве начинается с 0)
  for i:= 0 to n-1 do
    a[i]:= i+1;
  
  // выводим массив на экран
  for i:= 0 to n-1 do
    WriteLn(a[i]); // можно записать и так WriteLn((a+i)^);
 
  // освобождаем память
  FreeMem(a);
 
  ReadLn;
end.

program prog;
 
{$mode fpc}
 
var
  m, n: integer;
  i, j: integer;
  // чтобы перемещаться по массиву из целых чисел нужен указатель,
  // а для чтобы премещаться по массиву указателей на целые числа нужен указатель на указатель )
  a: ^pinteger;
begin
  Write('Input m: ');
  ReadLn(m);
 
  Write('Input n: ');
  ReadLn(n);
 
  // выделяем память
  GetMem(a, m * sizeof(integer));
  for i:= 0 to m-1 do
    for j:= 0 to n-1 do
      GetMem(a[i], n * sizeof(integer));
 
  // заполняем массив случайными числами
  Randomize;
  for i:= 0 to m-1 do
    for j:= 0 to n-1 do
      a[i][j]:= Random(10);
 
  // выводим на экран
  for i:= 0 to m-1 do begin
    for j:= 0 to n-1 do
      Write(a[i][j]:4);
    WriteLn;
  end;
 
  // освобождаем память
  for i:= 0 to m-1 do
    FreeMem(a[i]);
  FreeMem(a);
 
  ReadLn;
end.

GetMem(a, m * sizeof(integer));

GetMem(a, m * sizeof(pinteger));

type pnode = ^integer;
var list: array of pnode;
begin 
    list[0] := nil; //опционально
    if list[0] = nil then writeln ('yeah');
    readln;
end.

var n,i:integer;
     a:array[1..100] of real;
begin
wite('n=');
readln(n);
for i:=1 to n do
a[i]:=random;

Program HELLO; 
 
uses crt,math;
var 
    a:array[1..100] of real;
    n,i:integer;
begin
clrscr;
write('Ведите к-во елементов массива n=');
readln(n);
setlength(a,n);
for i:=0 to n do
 begin
a[i]:=random;
 end;
readln ;
end.

Program HELLO; 
 
uses crt,math;
var 
    a:array  of real;
    n,i:integer;
    
    
begin
clrscr;
write('Ведите к-во елементов массива n=');
readln(n);
setlength(a,n);
 
 
Randomize;
for i:=0 to n do
 begin
a[i]:=random;
write(a[i],' ');
 end;
readln 
end.