Требуется помощь с массивами и текстом

[agoriachev]

Обработка одномерного массива
1 Найти сумму элементов между mах и min
2 Поменять местами mах и min
Двумерные массивы
1 Найти столбец содержащий mах и min элементы целочисленного массива и поменять местами столбцы
2 Найти сумму элементов четных, лежащих выше главной диагонали и сумму элементов четных, лежащих ниже главной диагонали.
Сделано благодаря Teor'у!
Осталось:
Создать типизированный файл содержащий информацию о студентах групп (порядковый номер студента, имя, стипендия)
Посчитать среднюю стипендию (размер средней стипендии)

[Teor]

Нащет одномерного массива, то вот вариант

program masiv;
uses crt;
var i,c,imin,imax,n,min,max,suma:integer; mas:array[1..100] of integer;
begin
clrscr;
writeln ('Введите количество елементов');
readln (n);
for i:=1 to n do
begin
mas[i]:=-random(50)+random(50);
write (mas[i],'  ');
end;
min:=mas[1];
max:=mas[1];
for i:=1 to n do
begin
if mas[i]<=min then
begin
min:=mas[i];
imin:=i;
end;
if mas[i]>=max then
begin
max:=mas[i];
imax:=i;
end;
end;
if imin<imax then
for i:=imin to imax do
suma:=suma+mas[i] else if imax<imin then for i:=imax to imin do suma:=suma+mas[i];
for i:=1 to n do
if i=imin then
begin
c:=mas[i];
mas[i]:=mas[imax];
mas[imax]:=c;
end;
writeln;
writeln ('Сума ',suma);
writeln ('Новый масив');
for i:=1 to n do
write (mas[i],'  ');
readkey
end.

Но иногда программа отказываетоься работать. Я токо чет не могу найти ошибку.

Так.. Вроде-бы все уже работает

[Teor]

Вот вариант для задания с двумерным массивом

program masiv;
uses crt;
var i,j,min,max,c,n,jmin,jmax,suma1,suma2:integer; mas:array[1..100,1..100] of integer;
begin
clrscr;
writeln ('Введите размер');
readln (n);
for i:=1 to n do
begin
for j:=1 to n do
begin
mas[i,j]:=-random(50)+random(50);
write (mas[i,j],'  ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
begin
if (j>i) and (odd(mas[i,j])=false) then suma1:=suma1+mas[i,j];
if (j<i) and (odd(mas[i,j])=false) then suma2:=suma2+mas[i,j];
end;
min:=mas[1,1];
max:=mas[1,1];
for i:=1 to n do
for j:=1 to n do
if mas[i,j]<=min then 
begin
min:=mas[i,j];
jmin:=j;
end else if mas[i,j]>=max then
begin
max:=mas[i,j];
jmax:=j;
end;
for i:=1 to n do
begin
c:=mas[i,jmin];
mas[i,jmin]:=mas[i,jmax];
mas[i,jmax]:=c;
end;
writeln;
writeln ('Сума четных выше диагонали ',suma1);
writeln ('Сума четных ниже диагонали ',suma2);
writeln ('Новый масив');
for i:=1 to n do
begin
for j:=1 to n do
write (mas[i,j],'  ');
writeln;
end;
readkey
end.

[agoriachev]

огромное мерси!
все работает!
Теперь буду разбираться какая команда что делает ))