помогите доделать

[garic888270]

с горем пополам написал программу для поиска максимального элемента главной диагонали.
как прибавить его к элементам указаной строки???
если не сложно напишите код.

program Array1;

uses
Crt;
type
XArray = array [1..50, 1..50] of real;
var
i, j, n,sum,k, imax, jmax:integer;
X: XArray;
Max: real;
begin clrscr;
Write('vvedite razmer X[n,k], n = '); Readln(n);
Write('vvedite razmer X[n,k], k = '); Readln(k);
if n<>k then
begin
randomize;
Writeln('glavnoy diagonali net');
ReadKey;
Exit;
end;
for i := 1 to n do
for j := 1 to n do
begin
X[i,j]:=random(8);
writeln;
end;
Writeln;
i:=1;
while i<=n do
begin
for j := 1 to n do
Write(X[i, j]:5:2);
Writeln;
i := i + 1;
end;
Max := X[1,1];
imax := 1;
jmax := 1;
for i := 1 to n do
begin
if Max < X[i,i] then
begin
Max:= X[i,i];
imax:=i;
jmax:=i;
end;
end;
Writeln(' Xmax[ ',imax,', ',jmax,'] = ',Max:8:2);
Readkey;
begin
write('nomer stroki i=');
readln(i);
end;
end.

[psycho-coder]

Ну как то так

for j := 1 to n do {i - номер строки}
  XArray[i, j] := XArray[i, j] + Max;

[psycho-coder]

___Дубляж___