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.