Создать динамическую матрицу, и посчитать сумму чисел, лежащих не по краям матрицы

{$reference System.Core.dll}
uses System, System.Linq;
 
type Vector = array of integer;
 
var 
  m, n : integer;
  rnd : Random := new Random;
  
begin
  write('n = '); readln(n);
  write('m = '); readln(m);
  
  var mx : array of Vector;
  SetLength(mx, n);
  for var i := 0 to n - 1 do
    mx[i] := Enumerable.Range(1, m).Select((i : integer) -> rnd.Next(100)).ToArray();
    
  foreach var v : Vector in mx do
    writeln(string.Join(' ', v.Select((x : integer) -> x.ToString()).ToArray()));
  
  var s : integer := 0;
  for var i := 1 to n - 2 do s += mx[i].Skip(1).Take(m - 2).Sum();
  
  writeln('sum = ', s);
end.

var
  a:array [,] of real;
  i,j,m,n,iKolVo:integer;
begin  
  repeat
   write('n,m=');readln(n,m);
  until (n>0)and (m>0); 
  a:=new real [n+1,m+1];
  iKolVo:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random*10-5;
      write(a[i,j]:6:2);
      if (not odd(j)) and (a[i,j]<0) then inc(iKolVo);
    end;
    writeln;
  end;
  writeln('количество отрицательных чисел в столбцах с четным номером=',iKolVo);
end.

var 
  mx : array [,] of real;
  m, n, i, j : integer;
  s : real := 0;
begin
  write('n = '); readln(n);
  write('m = '); readln(m);
  mx := new real[n, m];
  
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do 
    begin
      mx[i, j] := Random()*50;
      write(mx[i, j]:6:2);
    end;
    writeln;
  end;
  
  for i := 1 to n - 2 do
    for j := 1 to m - 2 do s := s + mx[i, j];
  writeln('s = ', s:8:4);
end.