Procedure Registr;

 

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}