Переписать код для динамического массива

Var a: array[0..100, 0..100] of integer;
i, j, s, m, n :integer; 
Begin 
Write ('Введите m и n');
Read (m,n);
for i:=0 to m-1 do begin
  for j:=0 to n-1 do begin
    a[i,j]:=random(100)-50;
    writeln (a[i,j],' ');
  end;
end;
s:=0;
for i:=0 to m-1 do
  for j:=0 to n-1 do
  s:=-s+a[i,j];
If (m*n mod 2) =0 then s:=-s;
writeln('S=',s);
readln
end.

Var a: array of array of integer;
i, j, s, m, n, k :integer; 
Begin 
Write ('Введите m и n');
Read (m,n);
setlength (a,m);
for k:=0 to m-1 do
setlength (a[k],n);
for i:=0 to m-1 do begin
  for j:=0 to n-1 do begin
    a[i,j]:=random(100)-50;
    writeln (a[i,j],' ');
  end;
end;
s:=0;
for i:=0 to m-1 do
  for j:=0 to n-1 do
  s:=-s+a[i,j];
If (m*n mod 2) =0 then s:=-s;
writeln('S=',s);
readln
end.

var
i,j,m,n,k:integer;
begin
writeln('vvedit naturalnoe 4islo');
readln(n);
for i:=1 to n div 2 do 
if n mod i=0 then begin
for j:=2 to i div 2 do
if i mod j=0 then k:=1;
if k=0 then writeln(i);
end;
end.

var
i,j,m,n,k:integer;
begin
writeln('vvedit naturalnoe 4islo');
readln(n);
for i:=2 to n do //n тоже может быть простым
if n mod i=0 then
 begin
  k:=0;
  for j:=2 to i div 2 do
  if i mod j=0 then
   begin
    k:=1;
    break
   end;
  if k=0 then write(i,' ');
 end
end.