[Turbo Pascal] Помогите найти ошибку в сортировке, пожалуйста.

[Pork6]

Доброго вам времени суток!

Сейчас работаю над заданием, которое выглядит так:

Дан список группы в 10 человек в виде:

ФАМИЛИЯ: 14 символов (13+1 пробел)
ПОЛ: 2 символа (1+1 пробел)
РЕЗУЛЬТАТЫ_СЕССИИ: 4 символа

Всего в строке 20 символов.

Данные в одной строке отделяются друг от друга пробелами. Например:
Иванов________м_4455
Петрова_______ж_3554
………………………….
Отсортировать по убыванию среднего балла мужчин и женщин по отдельности. Список брать из файла и сохранить в файл. Процедуры, функции и string-и не использовать. Реализовать программу через сортировку двумерного массива.

Вот что я написал:

program Zachet1;

type massC=array[1..10,1..20] of char;

var A:massC;
    C:massC;
    my1,my2,i,j:integer;
    myin,myout:text;

begin

assign (myin, 'INPUT.TXT');
assign (myout, 'OUTPUT.TXT');
reset (myin);
rewrite (myout);

for i:=1 to 10 do
 begin
 for j:=1 to 20 do
  read(myin,A[i,j]);
  readln(myin);
 end;

for i:=1 to 10 do {сортировка, складываем 4 оценки и сортируем по ним}
 for j:=1 to 20 do
 begin
 my1:= (ord(A[i,17])-48)+(ord(A[i,18])-48)+(ord(A[i,19])-48)+(ord(A[i,20])-48);
 my2:= (ord(A[i+1,17])-48)+(ord(A[i+1,18])-48)+(ord(A[i+1,19])-48)+(ord(A[i+1,20])-48);
 if my1(my2
 then
  begin
  C[i,j]:=A[i,j];
  A[i,j]:=A[i+1,j];
  A[i+1,j]:=C[i,j];
  end;
 end;

for i:=1 to 10 do {выводим мужчин}
 begin
  if (A[i,15]='м') then
  begin
  for j:=1 to 20 do
   write(myout,A[i,j]);
   writeln(myout)
  end;
 end;

for i:=1 to 10 do {выводим женщин}
 begin
  if (A[i,15]='ж') then
  begin
   for j:=1 to 20 do
    write(myout,A[i,j]);
    writeln(myout);
  end;
 end;

close(myin);
close(myout);

end.

Но оно не работает. Точнее сказать, оно выводит мужчин и женщин раздельно, но вот сама сортировка не работает.

Как правильно написать?

Заранее спасибо.

[puporev]

Сортировка практически не выполнена.Сделаем так:
Изменим раздел переменных.

var A:massC;
    i,j,k:integer;//добавим к-для сортировки
    myin,myout:text;
    x:char; //буфер для сортировки вместо массива С

Перепишем саму сортировку строк по сумме баллов.

for i:=1 to 9 do //проходим по строкам
 for k:=1 to 9 do
 if (ord(A[k,17])-48)+(ord(A[k,18])-48)+(ord(A[k,19])-48)+(ord(A[k,20])-48)<
 (ord(A[k+1,17])-48)+(ord(A[k+1,18])-48)+(ord(A[k+1,19])-48)+(ord(A[k+1,20])-48) //если сумма в след. строке меньше, переставляем
 then
  begin
    for j:=1 to 20 do  //перестановка элементов строк в столбцах
      begin
        x:=A[k,j];
        A[k,j]:=A[k+1,j];
        A[k+1,j]:=x;
      end;
  end;

[Pork6]

Большое вам спасибо за помощь!

Можете посоветовать справочник по Паскалю? А то достаточно сложно найти одновременно и полезную и интересную книгу.

Ещё раз благодарю.

[Rusl92]

http://programmersforum.ru/showthread.php?t=8324