program testirovanie;
uses crt;type stud=record
fio:string[30];
mark:2..5
end;
var Fstud:file of stud;
  s:stud;
  test:real;
  n,i:byte;
begin
clrscr;
assign(fstud,'k:\savelov.txt');
rewrite(fstud);
write('vvedite kol-vo u4enikov');
readln(n);
write('vvedite kol-vo testov');
readln(test);
for i:=1 to n do
begin
write(I:1,'-u,familia i.o.');
 readln(s.fio);
write(I: 1,'test:');
readln(test);
{write('ocenka :');
readln(s.mark);}
write(Fstud,s)
end;


end.