Создать двухмерный массив целого типа. Ввести исходные данные в каждый элемент массива с клавиатуры. Создать возможность модификации любого элемента массива, с клавиатуры, указывая ряд, столбец, а затем и новое значение элемента — Pascal(Паскаль)

program fg;

uses crt;

var
  A: array [1 .. 100, 1 .. 100] of integer;
  m, n, i, j: integer;
  modi: char;

procedure vyvod;
var
  i, j: integer;
begin
  clrscr;
  writeln('Vot vvedennaia Matrica "A":');
  for i := 1 to m do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:3, ' ');
  end;
end;

procedure update;
var
  i, j, zn: integer;
begin
  writeln;
  writeln;
  write('Ukajite stroku dlia modificacii: ');
  readln(i);
  write('Ukajite stolbec dlia modificacii: ');
  readln(j);
  write('Ukajite ZNACENIE dlia modificacii: ');
  readln(zn);
  A[i, j] := zn;
end;

{ *********************main*************************** }
begin
  write('Kol-vo strok: ');
  readln(m);
  write('Kol-vo ctolbcov: ');
  readln(n);

  for i := 1 to m do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
  writeln;

  modi := 'y';
  while (modi = 'y') do
  begin
    clrscr;
    vyvod;
    writeln;
    writeln;
    writeln('Proizvesti modifikaciyu? [y/n]: ');
    readln(modi);
    if modi = 'y' then
    begin
      clrscr;
      vyvod;
      update;
      vyvod;
    end
    else
      break;
  end;
  readln;

end.