[napster_X]

Ребят почему у меня замена не получается??

Program laba3;
Var m:array[1..3,1..5] of integer;
        max,u,P:real;
        i,j,jmax,t:integer;
begin
        writeln('вв матрицу 3x5');
        for i:=1 to 3 do for j:=1 to 5 do read(m[i,j]);
        writeln('Ёб室*л© ¬*бЁў');
        for i:=1 to 3 do begin
        for j:=1 to 5 do write(' ',m[i,j]); writeln;
end;
max:=-100;
begin
        j:=2;
        while(j<5) do begin
                for i:=1 to 3 do if(m[i,j]>max) then
                        if j<5 then
                                begin
                                max:=m[i,j];
	                        jmax:=j; end;

        j:=j+2;
        end;
        writeln('j max  ',max:4:2);
begin
p:=1;
	for i:=1 to 3 do for j:=4 to 4 do
	begin
		P:=P*((1+cos(1-(1/m[1,4])))+8.3)*((1+cos(1-(1/m[2,4])))+8.3)*((1+cos(1-(1/m[3,4])))+8.3);
        end;
	writeln(' P= ',P:4:2);
end;
for i:=1 to 3 do begin
        t:=jmax;
        jmax:=m[3,5];
        m[3,5]:=t;
        end;
writeln('матрица с заменой');
        for i:=1 to 3 do begin
        for j:=1 to 5 do write(' ',m[i,j]);
        writeln;
        end;
end;
end.