Переделать задачу на массив, изменив рандомный ввод данных на ручной

program matr;
uses
Crt;
type vector = array[1..1000] of integer;
matrix = array[1..10]of vector;
var 
    a:matrix;
    i,j,i1,j1,n,m,k,temp:integer;
begin
 write('n=');readln(n);
  write('m=');readln(m);
    for i:=1 to n do
  begin
  for j:=1 to m do
  begin
  a[i,j] := random(10);
    write(a[i,j],' ');
  end;
    writeln;
 end;
 writeln;
 for i:=1 to n do
 begin
 k := 0;
    for j:=1 to m do
    begin
        if (a[i,j] = 0 ) then
           k:=k +1;
    end;
  if(k>0)   then
  begin
   for i1:=1 to m do
       for j1:= 1 to m - i do
       begin
       if (a[i,j1] <= a[i,j1+1]) then
       begin
            temp := a[i,j1];
            a[i,j1] := a[i,j1+1];
            a[i,j1+1] := temp;
       end;
  end;
 end;
end; 
    for i:=1 to n do
  begin
  for j:=1 to m do
    write(a[i,j],' ');
    writeln;
 end;
 writeln;
  readln;
end.

  for i:=1 to n do
  begin
    Write('Enter row ',i,': ');
    for j:=1 to m do Read(a[i,j]);
    ReadLn; 
  end;

k := 0;
  for j:=1 to m do
      if (a[i,j] < 0 ) then begin k:=1; Break end;
 
  if(k>0) then
......