Помогите пожалуйста студентки, массивы Опции

[-Даша-]

1)Ввести 10 целых чисел, вычислить сумму чисел, начиная с минимального до последнего элемента.
2)Сформировать массив [4x6], поменять местами столбец с макс. элементом и столбец с минимальным элементом.
3)Сформировать массив [5x5], найти максимальнй элемент, находящийся выше главной диагонали и минимальный элемент, наход-ся ниже главной дипгонали.


Всем очень признательна заранее за помощь

[-Даша-]

Айра посмотри, вот что получилось:

3)program zadanie3;
uses crt;
var m: array[1..5,1..5] of integer;
i,j:byte;
max,min:integer;
k1,k2:byte;
s: byte;
maxi,maxj,mini,minj: byte;

begin

clrscr;
repeat
write('Введите размерность квадратной матрицы до 5: ');
readln(s);
until (s>0) and (s<=5);

clrscr;
for i:=1 to s do
for j:=1 to s do
begin
write('Введите элемент матрицы: ');
readln(m[i,j]);
end;

clrscr;
writeln('Исходная матрица:');
writeln;
for i:=1 to s do
begin
for j:=1 to s do
write(m[i,j]:5);
writeln;
end;

k1:=0;
k2:=0;
max:=m[1,2];
min:=m[2,1];
for i:=1 to s do
for j:=1 to s do
begin
if (i<j) and (m[i,j]>max) then
begin
max:=m[i,j];
readln;
writeln;
Writeln('Min element ниже гл. диаг.',max); что-то я запуталась?
end;
if (i>j) and (m[i,j]<min) then
begin
min:=m[i,j];
readln;
writeln;
Writeln('Max element выше гл. диаг.',min); что-то я запуталась?
end;
end;

for i:=1 to s do
for j:=1 to s do
begin
if (i<j) and (m[i,j]=max)
then k1:=k1+1;

if (i>j) and (m[i,j]=min)
then k2:=k2+1;
end;

if (k1>1) or (k2>1) then

begin
writeln('В матрице больше одного мин элта ниже гл диагонали и одного макс элта выше');
writeln('Нажмите любую клавишу');
readkey;
end;
end.