Program KypcoByxa;
uses crt;
	Student = record
		FIO:string[20];
		NGr:word;
		reiting:array[1..5] of byte;
		end;
var
	St:file of student;
	zap:Student;
	Flag:boolean;
	end:string[10];

Procedure gemacht_file;
begin
	assign (St,'kursovaia_rabota');
	rewrite (St);
	close (St);
end;

procedure new_record;
var
	i,errorcode:integer;
	s:string[20];
begin
	writeln('Ввод новой записи №', filepos (St)+1);
	{$I-}
	reset (F);
	{$I+}
	if IOResult=0
		then begin
			Writeln ('введите фамилию и инициалы студента');
		readln (zap.FIO);
		
		repeat writeln ('Введите номер группы');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			sz
		repeat writeln ('введите оценку по Физике');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			zap.reiting[1]:=i;


		repeat writeln ('введите оценку по Философии');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			zap.reiting[2]:=i;


		repeat writeln ('введите оценку по Дискретной математике');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			zap.reiting[3]:=i;


		repeat writeln ('введите оценку по Программированию на Яву');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			zap.reiting[4]:=i;


		repeat writeln ('введите оценку по Физподготовке');
			readln (s);
			val (s,i, errorcode);
		until errorcode=0;
			zap.reiting[5]:=i;

		write(St,zap);
	end;
end;