Ничего не работает

Program Lab_9;
uses tpcrt;
type student=record
     fam,name,group:string[20];
     year:integer;
     sr:real;
     end;
ar=array[1..10]of student;
var a,b:ar; stud:student; amax,i,k:integer;
procedure input_from_file(name:string; var a:ar);
var st:string;kod:integer; f:text;
begin
     assign(f,name);
     reset(f);
     amax:=0;
     while not eof(f) do begin
       readln(f,st);
       with stud do begin
        fam:=copy(st,1,pos('',st)-1));
        delete(st,1,pos('',st));
        name:=copy(st,1,pos('',st)-1);
        delete(st,1,pos('',st));
        group:=copy(st,1,pos('',st)-1);
        delete(st,1,pos('',st));
        val(copy(st,1,pos('',st)-1), year, kod);
        delete(st,1,pos('',st));
        val(st,sr,kod);
       end;
       if amax<10 then amax:=amax+1;
       a[amax]:=stud;
     end;
     close(f);
End;
 
procedure output_to_file(name,header:string; a:ar);
var f:text; i:integer;
begin
     assign(f,name);
     {$i-1} append(f); {$i+1}
     if ioresult <> 0 then rewrite(f);
     writeln(f,header);
     writeln(f,'|------------------------------------');
     writeln(f,'| Фамилия | Имя | Группа | Г.Р. | С.Р. |');
     writeln(f,'|------------------------------------');
     for i:=1 to amax do with a[i] do
     writeln(f,'|', fam:11,'|',name:9,'|',group:10,'|',year:6,'|',sr:6:1,'|');
     writeln(f,'|------------------------------------');
     writeln(f);
     close(f);
End;
 
procedure obmen(var a,b:student);
var r:student;
begin
    r:=a; a:=b; b:=r;
End;
 
procedure sort_choice(var m:ar);
var k,i,j:integer;
begin
     for i:=1 to amax-1 do begin
     k:=1;
     for j:=i+1 to amax do if m[k].name>m[j].name then k:=j;
     obmen(m[k],m[i]);
     end;
End;
 
Begin
     input_from_file('data.txt',a);
     output_to_file('result.txt','Исходный массив:',b);
     b:=a; sort_choice(b);
     output_to_file('result.txt','После сортировки выбором:',b);
    readkey;
End.