Реферат: Двунаправленный динамический список

new(temp);

write('Введите фамилию: ');

readln(temp^.fam);

write('Введите имя: ');

readln(temp^.name);

write('Введите отчество: ');

readln(temp^.fanem);

write('Введите дату рождения: ');

readln(temp^.bethday);

n:=1;

s2:=copy(temp^.bethday,n,1);

while ((s2<'0') or (s2>'9')) and (n<10) do

begin

inc(n);

s2:=copy(temp^.bethday,n,1);

end;

inc(n);

s1:=copy(temp^.bethday,n,1);

if (s1>='0') and (s1<='9') then s2:=s2+s1

else s2:='0'+s2;

while ((s1<'А') or (s1>'я')) and (n<10) do

begin

inc(n);

s1:=copy(temp^.bethday,n,1);

end;

s1:=copy(temp^.bethday,n,3);

temp^.zodiak:=' ';

if s1='апр' then

if s2<'21' then temp^.zodiak:='овен'