Динамическая память в Паскаль (не работает программа и в чём ошибка не могу понять...)

[milili]

const
  m = 20;
type
  st = array[1..m] of Extended;
var
  mass : ^st;
  i : Integer;
begin
  New(mass);
  Writeln('В динамической памяти создан массив: array[1..', m, '] of Extended:');
  Randomize;
  for i := 1 to m do begin
    mass^[i] := Random * Random(100); 
    if i > 1 then Write(', ');
    Write(mass^[i]:5:2);
  end;
  Writeln;
  Writeln('Объём выделенной памяти: ', read(mass^), ' байт.');
  Dispose(mass);
  Writeln('Выделенная память освобождена. Программа завершена.');
  Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

нормально всё, кроме весьма странной ошибки с read()
попробуйте так:

  Writeln('Объём выделенной памяти: ', sizeof(mass^), ' байт.');