Pascal массив

[Penguin222]

Здравстуйте, нужна помощь в решении задачи в паскале =) Дело в том, что я за последние 1.5 года ни разу не занимался этим и все напрочь забыл =(

текст задачи:
В массиве c[1..4,1..4], заполненном случайным образом, найдите сумму главной и побочной диагоналей, если эти суммы равны, заменить элементы меньше 3 на 3, иначе эти элементы заменить на 0 и напечатать новый массив. Отсортировать 3 столбец пузырьковым методом по возрастанию.

Главное это сумма побочной диагонали и замена, ибо они у меня не работают =( Пузырьковый метод надеюсь найду сам в литературе.
Буду благодарен даже за имнимальную помощь, половину ато не помню, а оставшееся либо не работает, либо отдельными кусками =) Заранее спасибо.

[RUSt88]

пиши на мыло, договоримся о цене, сделаю всё в лучшем виде и с комментариями

[LeninNT]

Сделаю за символическую плату

[6apcyk]

Здравствуйте. Очень нужна помощь...нужно из двух операторов составить один...вот первоначальная прога
var
n, m: integer;
x, y, e, s: real;
begin
writeln('vvedite x e');
readln (x, e);
m:=0;
repeat m:=m+6 until (m>sqrt(abs(x))/e);
s:=0;
n:=0;
while n<=m do begin
n:=n+1;
y:=m/(n+abs(x));
s:=s+y; end;
writeln('m=', m);
writeln('s=', s:2:3);
readln;
end.