Массивы - замена строк, нахождение нового массива [Pascal]

[chupacabr]

Уважаемые камрады, помогите, пожалуйста, составить программу.
Задача прилагается на картинке.



Я выполнил первый пункт, но не понимаю как найти S[i], поэтому и далее вместо максимального элемента матрицы S нашел максимальный элемент матрицы А. Помогите справиться с заданием!

Вот получившаяся программа:

Program lab3;
uses crt;
const m=5;n=3;
var a:array[1..n,1..m]  of integer;
max,i,j,R:integer;
S:real;
begin
writeln('Массив А:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
writeln('Меняем местами первую и последнюю строки:');
for i:=1 to n do
begin
for j:=1 to 5 do
begin
R:=a[1,j];
a[1,j]:=a[3,j];
a[3,j]:=R;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
writeln('S[i]:');
S:=0;
for i:=1 to n do
S:=5+(1-a[i,j]+a[i,j]*a[i,j])/6;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to m do
if (max<a[i,j]) then
max:=a[i,j];
writeln;
writeln('Максимальный элемент из матрицы А= ',max);
a[1,3]:=max;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.