Problem s triedenim v Pascale

PROGRAM LYZOVANIE;
CONST MAX=5;
TYPE PRETEKAR=RECORD
     MENO:STRING[40];
     PRIEZVISKO:STRING[50];
     KRAJINA:STRING[80];
     PRVYCAS:INTEGER;
     DRUHYCAS:INTEGER;
              END;
TYPE POLE=ARRAY[1..MAX] OF PRETEKAR;
VAR A:POLE;
    C:PRETEKAR;
    VYBER:CHAR;
    X:INTEGER;
    S:TEXT;
    VYPISANIE:STRING;

PROCEDURE NOVYPRETEKAR(VAR B:POLE;O:INTEGER;VAR E:TEXT);
VAR D:PRETEKAR;
    J,I:INTEGER;
    NAZOV:STRING;
    F:TEXT;
BEGIN
WRITELN ('ZADAJ NAZOV SUBORU');
READLN (NAZOV);
ASSIGN (F,NAZOV);
REWRITE(F);
WITH D DO
FOR I:=1 TO MAX DO
BEGIN
WRITELN ('ZADAJ MENO SPORTOVCA');
READLN (MENO);
WRITELN (F,MENO);
WRITELN ('ZADAJ PRIEZVISKO SPORTOVCA');
READLN (PRIEZVISKO);
WRITELN (F,PRIEZVISKO);
WRITELN ('ZADAJ KRAJINU SPORTOVCA');
READLN (KRAJINA);
WRITELN (F,KRAJINA);
WRITELN ('ZADAJ PRVY CAS SPORTOVCA');
READLN (PRVYCAS);
WRITELN (F,PRVYCAS);
WRITELN ('ZADAJ DRUHY CAS SPORTOVCA');
READLN (DRUHYCAS);
WRITELN (F,DRUHYCAS);
WRITELN ('-----------------');
WRITELN (F,'---------------');
WRITELN ('HOTOVO');
END;
CLOSE (F);
READLN;
END;



PROCEDURE VYPIS (VAR U:TEXT;VAR PISMO:STRING);
VAR I:INTEGER;
    K:PRETEKAR;
    L:TEXT;
    RIADOK:STRING;
    NAZOV:STRING;
BEGIN
ASSIGN (L,'LYZOVANIE');
RESET (L);
BEGIN
WITH K DO
FOR I:=1 TO MAX DO
BEGIN
READLN (L,RIADOK);
WRITELN (RIADOK);
READLN (L,RIADOK);
WRITELN (RIADOK);
READLN (L,RIADOK);
WRITELN (RIADOK);
READLN (L,RIADOK);
WRITELN (RIADOK);
READLN (L,RIADOK);
WRITELN (RIADOK);
END;
READLN;
CLOSE (L);
END;
END;

PROCEDURE TRIEDENIE (VAR N:TEXT;VAR H:PRETEKAR);
VAR Z,L,I,J:INTEGER;
    P,T:TEXT;
    MENO,RIADOK:STRING;
    R:PRETEKAR;
    X:CHAR;
    M:POLE;
BEGIN
ASSIGN (T,'LYZOVANIE');
RESET (T);
REWRITE (P);
WITH R DO
BEGIN
READLN (T,MENO);
FOR J:=MAX DOWNTO 2 DO
IF (MENO[J-1]>MENO[J]) THEN BEGIN
X:=MENO[J-1];
MENO[I+1]:=MENO[J];
MENO[J]:=X;
                             END;
END;
WRITELN (P,'UTRIEDENE POLE JE:');
FOR L:=1 TO MAX DO
WRITELN (P,L);
CLOSE (T);
CLOSE (P);
READLN;
END;



BEGIN
REPEAT
WRITELN ('N - NOVY PRETEKAR');
WRITELN ('V - VYPIS PRETEKAROV');
WRITELN ('K - KONIEC PROGRAMU');
WRITELN ('T - TRIEDENIE PODLA MENA');
READLN (VYBER);
CASE VYBER OF
'N': NOVYPRETEKAR(A,X,S);
'V': VYPIS (S,VYPISANIE);
'T': TRIEDENIE (S,C);
END
UNTIL (VYBER='K') OR (VYBER='k');
READLN;
END.