Записать в текстовый файл фамилию и имя студентов с повышенной стипендией

program sss;
uses crt;
const n=5;
type usp=record
fio:string[50];
gr:string[10];
srb:real;
pr:array[1..10] of byte;
end;
f=file of usp;
var
fst,two,step,four:f;
st:usp;
i,p,k:integer;
v:char;
t:real;
procedure input;
begin
rewrite(fst);
repeat
writeln('Введите фамилию студента');
readln(st.fio);
if st.fio<>'*' then begin
writeln('Введите группу студента');
readln(st.gr);
for i:=1 to n do begin
writeln('Введите',i,' оценку');
readln(st.pr[i]);
end;
write(fst,st);
end;
 
until (st.fio)='*';
close(fst);
end;
 procedure output(var z:f);
 begin
reset(z);
WriteLn('|','Фамилия':10,'|','Пр№1':4,'|','Пр№2':4,'|','Пр№3':4,'|','Пр№4':4,'|','Пр№5':4,'|','Средний балл':10,'|','Группа':10);
while not eof(z) do begin
read(z,st);
write('|',st.fio:10,'|');
for i:=1 to n  do begin
write(st.pr[i]:4,'|');
end;
write(st.srb:10:2,'|');
write(st.gr:10,'|');
writeln;
 
 end;
 readln;
close(z);
end;
 
begin
clrscr;
 
{$I-}
assign(fst,'c:\v22-9873\f\stud.01');
assign(two,'c:\v22-9873\f\two.02');
assign(step,'c:\v22-9873\f\step.03');
assign(four,'c:\v22-9873\f\four.04');
reset(fst);
if ioresult<>0 then begin writeln('Файл не существует');
input
end
else  begin
close(fst);
writeln('Файл существует');
writeln('Заменяем y/n');
readln(v);
if v='y' then input;
end;
{$I-}
reset(fst);
rewrite(two);
rewrite(step);
rewrite(four);
while not eof(fst) do begin
read(fst,st);
t:=0;
for i:=1 to n do
t:=t+st.pr[i];
st.srb:=t/n;
 
        if st.srb<3 then   write(two,st);
 
 
                 seek(fst,(filepos(fst))-1);
                 write(fst,st);
                 k:=0;
                 for i:=1 to n do
                 if (st.pr[i]>3) and (st.srb<>5) then  k:=k+1;
                 if k=n then write(four,st);
                 if st.srb=5 then write(step,st);
                 if st.srb<4  then write(two,st);
 
                 end;
                       close(step);
                 close(fst);
                 close(two);
                 close(four);
                 writeln;
 
 
        writeln('ИСХОДНЫЙ');
        output(fst);
        writeln;
        clrscr;
        writeln('ТРОЕШНИКИ');
        output(two);
        writeln;
        writeln('Простая Стипендия');
        output(four);
        writeln;
        writeln('Повышенная стипендия');
        output(step);
        end.