Вывод текста из файла (рекорды в игре) [Pascal]

[zhenka619]

uses crt;
var
  x,y:integer;
  mx,my:array [0..1000] of byte;
  ch : char;
  st : string;
  ima : string;
  index,xe,ye,dlina,eochki,dlinamax,l,vx,vy:integer;
  records: text;
begin
  clrscr;
  Randomize;
  index:=0;
  y:=6;
  x:=3;
  xe:=12;
  ye:=12;
  gotoxy(xe,ye);
  eochki:=random(8)+1;
  write (eochki);
      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('o');
    	delay(100);
    		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(mx[index-dlina],my[index-dlina]);
    	write(' ');
    		if (x=xe) and (y=ye)  then begin
      			dlinamax:=dlinamax+eochki;
     			xe:=random(70);
     			ye:=random(20);
      			eochki:=random(8)+1;
      			gotoXY(xe,ye);
     			write(eochki);
    		end;
	
    		if (dlina<dlinamax) then begin
   			 dlina:=dlina+1;
    		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;
     end;{while}
clrscr;
writeln('vvdeite vashe ima');
clrscr;
Assign(records, 'records.txt');
writeln (records, 'Рекорд =' ,dlina );


reset(records);
	while not eof (records) do begin
		readln (records,st);
		writeln(st);
            end;
close (records);
readln(x);		
end.

Вот что в конце писать??? Делаю и так и так но результата 0 =(

[whatever]

Assign(records, 'records.txt');
append(records); //или rewrite(records);
writeln (records, 'Рекорд =' ,dlina );