Как можно заменить random?

 
program mas;
  var
    a: array[1..100,1..100] of integer;
    i,j,s,n,m: integer;
begin
  write('vvedite razmer massiva n,m: '); readln(n,m);
  randomize;
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(9)-4;
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    if s<0 then write('   summa elementov otricatelnoe chislo = ',s)
      else if s>0 then write('   summa elementov polojitelnoe chislo = ',s)
        else if s=0 then  write('   summa elementov = 0');
    writeln;
  end;
  writeln;
  readln;
end.

var a: array[1..100,1..100] of integer;
    i,j,s,n,m: integer;
begin
  write('vvedite razmer massiva n,m: '); readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          Write('Array [',i,',',j,'] = ');Readln(a[i,j]);
        end;
    end;
  for i:=1 to n do
  begin
    s:=0;
    for j:=1 to m do
    begin
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    if s<0 then write('   summa elementov otricatelnoe chislo = ',s)
      else if s>0 then write('   summa elementov polojitelnoe chislo = ',s)
        else if s=0 then  write('   summa elementov = 0');
    writeln;
  end;
  writeln;
  readln;
end.