Рекорды. Алгоритм. Паскаль

[zhenka619]

Совершенно не понимаю как сделать рекорды!

uses crt;
var
  x,y:integer;
  mx,my,xe,ye,eochki:array [0..1000] of byte;
  ch : char;
  st : string;
  ima : string;
  echet,index,dlina,dlinamax,l,vx,vy,proverka,z,k:integer;
  records: text;
begin
  clrscr;
  Randomize;
  index:=0;
  y:=6;
  x:=3;
  dlinamax:=1;
  echet:=1;
  xe[echet]:=12;
  ye[echet]:=12;
  gotoxy(xe[echet],ye[echet]);
  eochki[echet]:=random(8)+1;
  write (eochki[echet]);
      while (x>=1) and (x<=80) and (y>=1) and (y<=25)  do begin
     	index:=index+1;
  	GoTOXY(x,y); mx[index]:=x; my[index]:=y;
  	write(#176);
    	
    		if keypressed then begin
    			ch:=readkey;
    			case ch of
      			    'd':begin vx:=1; vy:=0 end;
      			    'a':begin vx:=-1; vy:=0 end;
   			    'w':begin vx:=0; vy:=-1 end;
      			    's':begin vx:=0; vy:=1 end;
      			end;
   	           end;{if}
            x:=x+vx;
            y:=y+vy;
            gotoxy(x,y);
            write(#1);
            delay(100);
    	gotoxy(mx[index-dlina],my[index-dlina]);
    	write(' ');
                        for l:=1 to 10 do
                        begin
    		            if (x=xe[l]) and (y=ye[l])  then begin
      			    dlinamax:=dlinamax+eochki[l];
     			    xe[l]:=random(70);
     			    ye[l]:=random(20);
      			    eochki[l]:=random(8)+1;
      			    gotoXY(xe[l],ye[l]);
     			    write(eochki[l]);
    		            end;
	            end;
    		if (dlina<dlinamax) then begin
   			 dlina:=dlina+1;
    		end;

   		
                        if (proverka>30) and (echet<10) then
                        begin
                     	proverka:=0;
                        echet:=echet+1;
                        eochki[echet]:=random(8)+1;
                        xe[echet]:=random(70)+1;
                        ye[echet]:=random(20)+1;
                        gotoxy(xe[echet],ye[echet]);
                        write(eochki[echet]);
                        end;
                        
                        if (index=dlinamax+2)then begin
   		 	 l:=1;
    				repeat
    					mx[l]:=mx[l+1];
    					my[l]:=my[l+1];
    					l:=l+1;
    				until l=dlinamax+2;
    			index:=dlinamax+1;
    		end;

                        for l:=0 to dlinamax+1 do begin
                        if (x=mx[l]) and (y=my[l]) and ((ch='a') or (ch='d' )or (ch='s' )or (ch='w' ))  then begin
                         x:=-100000000;
                        end; 
                        end;
                        

 l:=random(5);
 proverka:=proverka+l;

     end;{while}
clrscr;	
end.

Помогите кто-нибудь (только нужно что бы они были в порядке убывания)

[deathNC]

Если Вы про четвёртую строчку кода, где куча массивов, то надо сделать так:

type
  TItem = record
    mx, my, xe, ye, eochki: Byte;
  end;
  TItems = Array[0..1000] of TItem;

И вместо четвёртой строки Вашего кода
mx,my,xe,ye,eochki:array [0..1000] of byte;
пишем это:

Items: TItems;

Раньше было так:

mx[i] := ...;
my[i] := ...;

стало так:

Items[i].mx := ...;
Items[i].my := ...;