зависание программы (динамический массив)

[mishammm]

народ впервые такое вижу:
задание стояло так: нужно было подсчитать количество столбцов в динамическом двумерном массиве и вывести подсчитанные суммы в новый массив:

uses
   crt;

   type

        mas= array[1..100] of real;
        masuk=array[1..100] of ^mas;
   var
   a,c:^masuk;
   n,m,i,j:integer;
   s:real;

   begin
   writeln('vvedit n');
   readln(n);
   writeln('vvedit m');
   readln(m);
   getmem(a,sizeof(mas)*n);
   For i:=1 to n do begin
   getmem(a^[i],m*sizeof(real));



   For j:=1 to m do  begin

   Writeln('VVedi massiv ');


   Readln(a^[i]^[j]);
   end;
   end;




          for i:=1 to n do begin
  for j:=1 to m do
     write(A^[i]^[j]:8:2,' ');
  writeln;
end;


For j:=1 to m do begin
For i:=1 to n do
s:=s+a^[i]^[j];
Writeln('summa', s);
end;



For j:=1 to m do begin
For i:=1 to n do
c^[i]^[j]:=s;
end;


  writeln('massiv summ');
  For j:=1 to m do begin
For i:=1 to n do
write(c^[i]^[j]:8:2);
writeln;
end;
end.

но при вводе прога тупо висит и всё паскаль не отвечает. в чем причина? помогите плиз

[Stilet]

vvedit n
2
vvedit m
2
VVedi massiv
1
VVedi massiv
1
VVedi massiv
1
VVedi massiv
1
1.00 1.00
1.00 1.00
summa 2.00000000000000E+000
summa 4.00000000000000E+000

Это в Лазарусе.
Однако!:

For j:=1 to m do begin
For i:=1 to n do
c^[i]^[j]:=s;
end;

А где распределение памяти для этого массива?