Помогите с паскалем)

[SakaE]

Сообщение от Shrek-Ogre

можно я немного обнаглею)))

и попрошу помочь с ещё одной задачей, на этот раз последней)

просто вообще не понимаю как сделать( натолкните на путь решения пожалуйста)

собсно задача):

как то так:

Program blblbl;
Var 	m:array[1..5,1..3] of real;
	max,u,P:real;
	i,j,imax,t:integer;
begin
	writeln('vvedite elementy massiva 5x3');
	for i:=1 to 5 do for j:=1 to 3 do read(m[i,j]);
	for i:=1 to 5 do begin
	for j:=1 to 3 do write(' ',m[i,j]:0:0); writeln;
	end;
max:=m[1,1];
		for i:=1 to 5 do for j:=1 to 3 do
		begin
			if(m[i,j]>=max) then
				begin
					max:=m[i,j];
					imax:=i;
				end;
		end;
writeln('i max  ',max:4:2);

P:=0;
for j:=1 to 3 do
	P:=P+(sin(m[imax,j])+1/(abs(m[imax,j])));
writeln('S= ',P:0:6);
m[2,2]:=P;
for i:=1 to 5 do
	begin
		for j:=1 to 3 do write(' ',m[i,j]:0:0);
		writeln;
	end;
readln;
end.

что-то как будто не так... но уже поздно и мне влом что-то делать
P.S.-пора завязывать с благотворительностью на какое-то время