Файлы и библиотеки. Организовать ввод/вывод из файла. Сортировка по имени

program ZS;
const N=3;
type T_s = record
fam,nam:string[50];
g,o1,o2,o3:integer;
fo:string[11];
end;
var list_s:array [1..N] of T_s;
temp:array [1..N] of integer;
i,j,mt,buf:integer;
tmp:T_s;
function sr_b(o1,o2,o3:integer):real;
begin
sr_b:=(o1+o2+o3)/3;
end;
procedure sort;
var i:integer;
begin
for i:=1 to N do
for j:=1 to N do
if(list_s[i].nam<list_s[j].nam) then
begin
tmp:=list_s[i];
list_s[i]:=list_s[j];
list_s[j]:=tmp;
end;
end;
begin
for i:=1 to N do
begin
writeln('информация о ',i,' студенте(т) :');
write('фамилия ');
readln(list_s[i].fam);
write('имя ');
readln(list_s[i].nam);
write('год рождения -> ');
readln(list_s[i].g);
write('оценка 1 -> ');
readln(list_s[i].o1);
write('оценка 2 -> ');
readln(list_s[i].o2);
write('оценка 3 -> ');
readln(list_s[i].o3);
write('форма обучения (бюджетная,договорная -> ');
readln(list_s[i].fo);
end;
sort;
writeln('————————————————————————————————————————');
writeln('фамилия имя год рождения оценка 1 оценка 2 оценка 3 форма обучения');
for i:=1 to N do
writeln(' ',list_s[i].fam,' ':(13-length(list_s[i].fam)),
list_s[i].nam,' ':(17-length(list_s[i].nam)),
list_s[i].g,list_s[i].o1:9,
list_s[i].o2:9,list_s[i].o3:9,' ':7,
list_s[i].fo);
writeln('————————————————————————————————————————');
j:=1;
for i:=1 to N do
if list_s[i].fo='договорная' then begin temp[j]:=i; inc(j); end;
mt:=j-1;
for i:=1 to mt do
writeln(' ',
list_s[temp[i]].fam,' ':(13-length(list_s[temp[i]].fam)),
list_s[temp[i]].nam,' ':(17-length(list_s[temp[i]].nam)),
sr_b(list_s[temp[i]].o1,list_s[temp[i]].o2,list_s[temp[i]].o3):4:2);
end.