динамические массивы Опции

[*оля*]

не могли вы мне помочь разобраться с динамическими массивами в паскалеABC.
Ну вот для примера попыталась написать:

 uses crt;
Type
  TTmas=array[1..1] of integer;
  Tmas=^TTmas;
var
  a:Tmas;
  i,n:integer;
begin
writeln('введите n');
readln(n);
GetMem(a,SizeOf(TTmas)*n);
writeln('массив:');
  for i:=1 to n do
      readln( a^[i]);
  for i:=1 to n do
      writeln( a^[i], '  ');
writeln;
FreeMem(a,SizeOf(TTmas)*n);   { пишет: неверное количество фактических параметров, а как надо писать?}
readln
end.

.

[TarasBer]

Только с этим "запоминает размер выделенной переменной самостоятельно" тоже надо быть осторожным.
В турбопасе, например, код

 
var
  p: ^byte;
begin
  WriteLN(MemAvail);
  GetMem(p, 1234);
  Dispose(p);
  WriteLN(MemAvail);
end.

Даёт утечку памяти и вообще портит всю структуру кучи, а вот код

 
var
  p: ^byte;
begin
  WriteLN(MemAvail);
  GetMem(p, 1234);
  Dispose(pointer(p)); {!!!}
  WriteLN(MemAvail);
end.

Работает нормально


Добавлено через 3 мин.
А не, код, который снизу, тоже работает ненормально...