срочно нужна помощ

[любаша]

здравствуйте!!!через два дня экзамен,полный затор.истерика!!не могу решить уже самое простое .помогите пожалуйста,только не издевайтесь
дана матрица:
1.найти сумму элементов заданного столбца
2.произведение элементов заданной строки
3.максимальный элемент в матрице и вывести номер строки и столбца на которых он находится
4.максимальный элемент двух столбцов матрицы
5.поменять местами элементы двух столбцов


буду благодарна хоть за какую-нибудь помощь((((((

[maladoy]

1.
writeln('vvedi NS');
readln(NS);
s:=0;
for i=1 to n do
s:=s+mas[i,ns];

[maladoy]

2
writeln('vvedi NS');
readln(NS);
pr:=1;
for i=1 to n do
s:=pr*mas[i,ns];

[любаша]

большое спасибо)))))))))))))какую почитать???

[maladoy]

3

max:=mas[1,1];
for i=1 to n do
for j = 1 to n do
begin
if mas[i,j]>max then
begin
max:=mas[i,j];
imax:=i;
jmax:=j;
end;
end;

[maladoy]

writeln ('Viberete nomer zadachi: 1, 2, 3, 4 ,5?');
readln (m);
case m of

1 :
begin
writeln ('Vvedite NS: ');
readln(NS);
s:=0;
for i=1 to n do
s:=s+mas[i,ns];

writeln ('summa', s:4:2)
end;
2 :
begin
writeln('vvedi NS');
readln(NS);
pr:=1;
for i=1 to n do
pr:=pr*mas[ns,i];
writeln ('proizvedenie=',pr:4:2)
end;
3 :
begin
max:=mas[1,1];
for i=1 to n do
for j = 1 to n do

if mas[i,j]>max then
begin
max:=mas[i,j];
imax:=i;
jmax:=j;
end;
end;
4 :
begin
writeln('vvedi NS1');
readln(NS1);
writeln('vvedi NS2');
readln(NS2);
max:=mas[1,ns1];
for i=1 to n do
begin
if mas[i,ns1]>max then
max:=mas[i,ns1];
if mas[i,ns2]>max then
max:=mas[i,ns2];
end;

end;
5:
begin
writeln('vvedi NS1');
readln(NS1);
writeln('vvedi NS2');
readln(NS2);
for i=1 to n do
begin
elem:=mas[i,ns1];
mas[i,ns1]:=mas[i,ns2];
mas[i,ns2]:=elem;


end;

end;


end
else writeln ('Takogo nomera net!');

end;
readln;
end.

[любаша]

спасибо тебе еще раз

[maladoy]

5 ую уж сама как нить по аналогии допиши