Динамика, динамический массив Опции

[skAmZ]

Вот задание:
2.С помощью динамических переменных реализуйте вещественную матрицу размером 200 x 100. Каждому элементу матрицы присвойте случайное значение из заданного диапазона. Отсор-тируйте элементы в строках и строки по значению первого элемента. Выдайте на экран первую подматрицу размером 20 x 10.

Код

uses crt;
type
  mn=-6500..6500;
  mas1:array[1..200] of Integer;
  mas:array[1..100] of ^mas1;
var i,j,min,max:Integer;
      masiv:^mas;
begin
clrscr;
readln(min); {минимальное значение диопазона}
readln(max); {максимально значение диопазона}
Getmem(masiv,4*Sizeof(Real));
For i:=1 to 100 do
  For j:=1 to 200 do
      masiv^[i]^[j]:=random(max-min)+min-1;

{сюда не доходит}

Не знаю в чем дело, дальше не пишу потому что он даже заполнение не проходит.