program z3614;
const
n=5; m=7;
type matr=array[1..n,1..m] of real;
var a,b:matr;
na,nb:matr;

procedure zamena(n,m,k,l:integer; c:real;var d:matr);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
if ((d[i,j]=c) and (j=k)) then
begin
d[i,j]:=l;
end;
end;{zamena}

procedure vvodmatr(n,m,p:integer; x:char; var d:matr);
var i,j:integer;
begin
writeln('input ',x,' ',n,' * ',m);
for i:=1 to n do
for j:=1 to m do
d[i,j]:=p;
end;{vvodmatr}

procedure vivodmatr(n,m:integer; var e:matr);
var i,j:integer;
begin
writeln('Poluchennaia matriza: ');
for i:=1 to n do
begin
for j:=1 to m do
write(e[i,j],' ');
writeln(' ');
end;
end;

begin
vvodmatr(5,7,0,'a',a);
vivodmatr(5,7,a);
vvodmatr(4,5,1,'b',b);
vivodmatr(4,5,b);
zamena(5,7,3,1,0,a);
zamena(4,5,5,0,1,b);
vivodmatr(5,7,a);
vivodmatr(4,5,b);
readln;
end.