program liste;
uses crt,highscor;
var
   i:integer;
   sp_name:string[12];
   sp_punkte:longint;
begin
clrscr;
     gotoxy(5,1);
      write('Geben Sie 10 Namen und Zahlen ein!');
for i:=1 to 10 do
    begin
     gotoxy(5,2);sp_name:='';
     write('                              ');
     gotoxy(5,2);
     write(i,' Name: ');readln(sp_name);
     gotoxy(5,3);sp_punkte:=0;
     write('                              ');
     gotoxy(5,3);
     write(i,' Punkte: ');readln(sp_punkte);
     sp[i].name:=sp_name;
     sp[i].punkte:=sp_punkte;
    end;
sort_feld(sp,1,10);
score_schreiben;
clrscr;
score_lesen;
for i:=1 to 10 do
   begin
    gotoxy(1,i);
    write(i,'. '+sp[i].name);
    gotoxy(16,i);
    write(sp[i].punkte);
   end;
readln;
end.