Нужно убрать рандом в коде

Program PR1;
var
a:array[1..100,1..100] of integer;
i,j,n,m,s,p,k:integer;ser:real;
begin
 writeln('Введите m,n');
 readln(m,n);
 for i:=1 to m do begin
  for j:=1 to n do begin
   a[i,j]:=random(99);
   write(a[i,j]:3);
   end;
   writeln;
   end;
   writeln('Массив сумма элиментов строк');
   for i:=1 to m do begin 
   s:=0;
    for j:=1 to n do 
     s:=s+a[i,j];
     write(s,'; ');
     end;
     writeln;
     writeln('Массив произведение элиментов строк');
     for i:=1 to m do begin 
      p:=1;
       for j:=1 to n do 
         p:=p*a[i,j];
          write(p,'; ');
          end;
          writeln;
    writeln('Массив со средних арифм. элиментов строк');
    for i:=1 to m do begin 
   ser:=0;
    for j:=1 to n do 
     ser:=(ser+a[i,j])/n;
     write(ser:4:2,'; ');
     end;
     writeln;
end.

program PR1;
 
var
  a: array[1..100, 1..100] of integer;
  i, j, n, m, s, p, k: integer;
  ser: real;
 
begin
  writeln('Введите m,n');
  readln(m, n);
  for i := 1 to m do 
    for j := 1 to n do 
      readln(a[i, j]);
  writeln('Массив сумма элементов строк');
  for i := 1 to m do 
  begin
    s := 0;
    for j := 1 to n do 
      s := s + a[i, j];
    write(s, '; ');
  end;
  writeln;
  writeln('Массив произведение элементов  строк');
  for i := 1 to m do 
  begin
    p := 1;
    for j := 1 to n do 
      p := p * a[i, j];
    write(p, '; ');
  end;
  writeln;
  writeln('Массив со средних арифм. элементов строк');
  for i := 1 to m do 
  begin
    ser := 0;
    for j := 1 to n do 
      ser := (ser + a[i, j]) / n;
    write(ser:4:2, '; ');
  end;
  writeln;
end.