Написать программу заполнения массив: 1. как константу. 2. случайные числа. 3. вручную.- Pascal(Паскаль)

program xq;
 uses crt;
 const m=3;
 const n=3;
 const a:array[1..n,1..m] of integer=((3,5,7),(4,7,8),(7,9,2));
 var b:array[1..n,1..m] of integer;
 i,t,k,j:integer;
 begin
 clrscr;
 writeln('Как заполнить матрицу? 1-константа 2-случайные числа 3-вручную');
  repeat
  readln(k);
  until k in [1..3];
{  repeat
  write('t=');readln(t);
  until (t<6); }
  case (k) of
  1:
  begin
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=a[i,j];
  end;
  2:
  begin
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  b[i,j]:=random(10);
  end;
  3:
  begin
  for i:=1 to n do
  for j:=1 to m do
   begin
    write('b[',i,',',j,']=');
    readln(b[i,j]);
   end;
 end;
end;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
readln
end.