Работа с указателями, записями, сортировка (Паскаль)

[orandzheviyman]

program STUDETNIQI;
const kol = 21; tp = '   ';
type Tstud = record
      surname:string[20];
      mod1:integer;
      mod2:integer;
      mod3:integer;
      end;
pStud = ^Tstud;
Mstud = array [1..kol] of pStud;

var A:Mstud;
    f:text;
    k,j,i:integer;
    s:string;
    elem:string[5];
    kod:integer;
    
PROCEDURE sort (var A:Mstud);
 var i,j:integer;
     x:pStud;
BEGIN
for j:=kol downto 2 do
 for i:=1 to j-1 do
  if (a[i]^.mod2>a[i+1]^.mod2) then begin
    x:=a[i];
    a[i]^:=a[i+1]^;
    a[i+1]:=x;
                                  end
end;

BEGIN
for i:=1 to kol do
 A[i]:=nil;

assign (f, 'STUDENTI.txt');
reset (f);
 for i:=1 to kol do begin
  new (A[i]);
  readln(f,s);
  A[i]^.surname:=trim(copy(s,1,20)); k:=21;
  elem:=trim(copy(s,k,5));val (elem, A[i]^.mod1,kod); inc(k,5);
  elem:=trim(copy(s,k,5));val (elem, A[i]^.mod2,kod); inc(k,5);
  elem:=trim(copy(s,k,5));val (elem, A[i]^.mod3,kod); inc(k,5);
                   end;
close (f);

sort (A);
assign (f, 'RESULT.txt');
rewrite (f);
 for i:=1 to kol do begin
  for j:=1 to 20 do
 write (f, A[i]^.surname[j]);
  write (f, inttostr(A[i]^.mod1));
  write (f, tp);
  write (f, inttostr(A[i]^.mod2));
  write (f, tp);
  write (f, inttostr(A[i]^.mod3));
  write (f, tp);
  writeln (f);
                    end;
   writeln (f); writeln (f); writeln (f);
           
 for i:=kol downto 1 do begin
  for j:=1 to 20 do
  write (f, A[i]^.surname[j]);
  write (f, inttostr(A[i]^.mod1));
  write (f, tp);
  write (f, inttostr(A[i]^.mod2));
  write (f, tp);
  write (f, inttostr(A[i]^.mod3));
  write (f, tp);
  writeln (f);
                        end;
  close (f);
  end.

Надо с помощью динамической памяти взять из файла данные о студентах, отсортировать по второй оценке и вывести в новый файл в прямом и обратном порядках.
Что не так?

[Serge_Bliznykov]

А зачем ещё одну тему создавать, старая себя исчерпала?

[orandzheviyman]

Сообщение от Serge_Bliznykov

А зачем ещё одну тему создавать, старая себя исчерпала?

эмм, да. Задание просто поменялось.