файлы, подпрограммы. Pascal

[ayPinki]

1)Пeрeписать в файл по столбцам матрицу, у которой меньше положительных элементов в нижнем треугольнике(в случае равенства, переписать обе). - помогите с реализацией.в подпрограммах желатно

2)Упорядочить главную диагональ матрицы по возрастанию подпрограммой.(матрица- квадратная естестна)
(главное - вот так объявлены матрицы в основной программе, чтоб путаницы не было

const nmax=10;
type matr1=array[1..nmax,1..nmax] of integer;
type matr2=array[1..nmax,1..nmax] of integer;
var
x1,x2:matr1;

)


вот пытался сделать, но чот не пашет(

procedure Sort(var x:matr1;maxx:integer);
var
aa:array [1..nmax,1..nmax] of real;
k,a:integer;
temp:real;
begin
for k:=1 to nmax do begin
aa[k,k]:=x[k,k];

for i:=1 to (nmax-1)  do
for j:=i+1 to (nmax)    do
if a[i]>a[j] the begin
for k:=1 to nmax do begin

temp:=x[i,k];
x[i,k]:=x[j,k];
x[j,k]:=temp
end;
end;
end;

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

[ayPinki]

вторая задача кое как решена, с первой помогут?
(нижний треугольник- в который лежит в основании квадратной матрицы, образован главной+ побочной диагональю)

[Serge_Bliznykov]

а что не получается? не знаете, как посчитать количество положительных элементов в "нижнем треугольнике"? Или как сравнить два числа? Или как матрицу по столбцам в файл записать (кстати, файл текстовый или типизированный) ?