Матрица Опции

[test100]

Помогите пожалуйста решить. :molitva:

Матрица n на m элементов

В каждой строке заменить максимальный элемент на сумму элементов соответствующей строки.

[test100]

Почему-то только в некоторых строках заменяет правильно...

program test;   uses crt;
const n=4; m=4;
var
x:array[1..n,1..m] of integer;
	nmax:integer;
	s:integer;
	i,j:byte;
begin 
clrscr;
randomize;
writeln('Исходный матрица');
for i:=1 to n do
	begin
		for j:=1 to m do
			begin
			x[i,j]:=random(10);
			write(x[i,j]:4);
			end;
			writeln;
	end;

for i:=1 to n do
	begin
		s:=0;
			for j:=1 to m do
			s:=s+x[i,j];
			nmax:=1;

for j:=2 to m do
	if x[i,j]>x[1,nmax] then
	nmax:=j;
	x[i,nmax]:=s;
	end;
writeln('Полученная матрица');
for i:=1 to n do
begin
for j:=1 to m do write(x[i,j]:4);
writeln;
end;
end.

Еще не подскажите как сделать чтобы максимальный элемент в сумму не входил.