Var i:integer;
Begin{Procedure}
For i:=1 to 2 do
Begin{For}
ClearDevice;
SetColor(Green);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
Rectangle(40,150,600,180);
SetColor(Red);
OutTextXY(120,40,'Введите ваши данные для регистрации');
SetColor(White);
GoToXY(10,11);
Case i of
1:Begin{1}
OutTextXY(210,130,'Фамилия И.О.');
Readln(name);
End;{1}
2:Begin{2}
OutTextXY(210,130,'Номер группы');
Readln(grup);
End;{2}
End;{Case}
End;{For}
f_name:='spisok.pas';
Assign(f,f_name);
Reset(f);
pr:=0;
While not EOF(f) do
Begin{While}
If pr=0
Then
Begin{Then}
Readln(f,stroka);
If grup=stroka
Then
pr:=1;
End{Then}
Else
Readln(f,stroka);
End;{While}
Close(f);
If pr=1
Then
Begin{Then}
f_name:=grup+'_sp.pas';
Assign(f_sp_gr,f_name);
Reset(f_sp_gr);
pr:=0;
While not EOF(f_sp_gr)do
Begin{While}
If pr=0
Then
Begin{Then}
Readln(f_sp_gr,stroka);
If name=stroka
Then
pr:=1;
End{Then}
Else
Readln(f_sp_gr,stroka);
End;{While}
Close(f_sp_gr);
If pr=0
Then
Begin{Then}
Append(f_sp_gr);
Writeln(f_sp_gr,name);
Close(f_sp_gr);
f_name:=grup+'_rez.pas';
Assign(f_rez_gr,f_name);
End{Then}
Else
Begin{Else}
f_name:=grup+'_rez.pas';
Assign(f_rez_gr,f_name);
End;{Else}
End{Then}
Else{pr=0}
Begin{Else}
Append(f);
Writeln(f,grup);
Close(f);
f_name:=grup+'_sp.pas';
Assign(f_sp_gr,f_name);
Rewrite(f_sp_gr);
Writeln(f_sp_gr,name);
Close(f_sp_gr);
f_name:=grup+'_rez.pas';
Assign(f_rez_gr,f_name);
Rewrite(f_rez_gr);
Close(f_rez_gr);
End;{Else}
Assign(f1,'rez.pas');
End;{Procedure}