Паскаль. Сортировка

[recerpascal]

Задачка на паскале по сортировке выбором. Надо записать в файл двухмерный масив, типа integer , отсортировать елементы отдельно в каждой строке в порядке спадания цифр. Метод сортировки - выбором

[Gelirgwenn]

program a1;
const
m=3; //строки
n=5; //столбцы
namefile='C:\Massiv.txt'; //путь к файлу
var
i,j,k: integer; //счетчики
max,jmax: integer; //максимальное число в строке и номер его столбца
a: array [0..m,0..n] of integer; //сам массив
f:text; //файловая переменная
begin
// заполняешь массив (я думаю напишешь код самостоятельно)
// сортировка массива
for i:=0 to m do
    for k:=0 to n-1 do
        begin
        max:=0;
        for j:=k to n do
            if a[i][j]>max then
               begin
               max:=a[i][j];
               jmax:=j;
               end;
        a[i][jmax]:=a[i][k];
        a[i][k]:=max;
        end;
//записываем отсортированный массив в файл
assign(f,namefile);
rewrite(f);
for i:=0 to m do
    begin
    for j:=0 to n do
        write (f,' ',a[i][j]);
    writeln(f);
    end;
close(f);
end.

Успехов

[recerpascal]

спс, ето разве сортирует каждую строку??

[Gelirgwenn]

да, первый for пересчитывает строки, а два других сортируют элементы при постоянном m (т.е. строке, задаваемой первым for), и изменяемом j (столбце).
З.Ы. пожалста