Паскаль / 2 семестр / ДЗ2 / 123

Type
Data=record
Year:word;
Month:1..12;
day:1..31;
End;
Zap=record
Fam:string[16];
Birthday:data;
End;
var fb:array[1..25] of zap;
Fff:string;
I,j,m,n:byte;
Key:boolean;
Begin
writeln('Vvedite dannie o kol-ve studentov N<=25');
readln(n);
M:=0;
repeat
M:=M+1;
write('Vvedite familiy - ');
readln(fb[m].fam);
write('Vvedite god rozhdeniya');
readln(fb[m].birthday.year);
write('Vvedite mesyac rozhdeniya');
readln(fb[m].birthday.month);
write('Vvedite den rozhdeniya');
readln(fb[m].birthday.day);
Until n=m;
writeln;
writeln('Spisok studentov gruppi');
writeln;
{end; }
for I:=1 to M do
With fb[i] do
begin
write(I:2,Fam:17);
With birthday do
writeln(year:6,month:4,day:4);
end;
writeln;
writeln('Vvedite familiyu');
readln(fff);
i:=0;
key:=false;
Repeat
I:=i+1;
if fb[i].fam=fff then Key:=true;
Until key or (i=m);
if key then
with fb[i] do
begin
writeln('Dannie o studente :');
write(Fam:18,' ');
with birthday do
writeln(day:2,':',month:2,':',year:5,'goda');
end
Else Writeln ('Dannie o stedente',fff:18,'net');
end.