Записи и файлы

uses crt;
type zap=record
fk:string[3];
fam:string[12];
ball:integer
end;
var f1,f2:text; i,lf:1..12;
z:zap;
begin
clrscr;
assign(f1, 'C:\a6.in');
append(f1);
writeln('Введите номер факультета');
readln(z.fk);
writeln('Введите фамилию студента');
readln(z.fam);
writeln('Введите суммарный балл, полученный на экзаменах');
readln(z.ball);
readln;
z.fk:=z.fk+'  ';
lf:=lenght(z.fam);
if lf<12 then
for i:=lf+1 to 12 do insert('  ',z.fam,i);
write(f1,z.fk,z.fam,z.ball);
writeln(f1)
end;
close(f1);
reset(f1);
assign(f2,'C:\a6.out');
rewrite(f2);
writeln(f2,'Студент 8-го факультата, набравший наибольший балл')
repeat
read(f1,z.fk,z.fam,z.ball);
readln(f1);

mxb:=0;mxfm:='';{макс балл и фамилия}
while not eof(f) do
  begin
   read(f,z);
   if (z.fk='8' ) and(z.ball>mx)then
     begin
        mx:=z.ball;
        mxfm:=z.fam;
     end;
   end;
writeln('Max ball na fak 8 imeet ',mxfm,' ball=',mx);

uses crt;
type zap=record
fk:string[3];
fam:string[12];
ball:integer
end;
var f1,f2:text; i,lf:1..12; mxb:0..20; k:1..6;
z:zap; mxfm:string;
begin
clrscr;
assign(f1, 'C:\a6.in');
append(f1);
for k:=1 to 6 do
begin
writeln('Vvedite nomer faculteta');
readln(z.fk);
writeln('Vvedite familiu studenta');
readln(z.fam);
writeln('Vvedite summarnyi ball, poluchennyi na ekzamene');
readln(z.ball);
readln;
z.fk:=z.fk+'  ';
lf:=length(z.fam);
if lf<12 then
for i:=lf+1 to 12 do insert('  ',z.fam,i);
write(f1,z.fk,z.fam,z.ball);
writeln(f1);
end;
close(f1);
reset(f1);
assign(f2,'C:\a6.out');
rewrite(f2);
repeat
read(f1,z.fk,z.fam,z.ball);
readln(f1);
mxb:=0;mxfm:='';
while not eof(f1) do
begin
read(f1,z.fk,z.fam,z.ball);
if (z.fk='8' ) and(z.ball>mxb)then
begin
mxb:=z.ball;
mxfm:=z.fam;
end;
end;
writeln(f2,'Max ball na fak 8 imeet ',mxfm,' ball=',mxb);
until eof(f1);
close(f1);
close(f2);
end.