Задачв на RECORD

[n1ce > Kuzia]

Помогите составить задачу с RECORD (типо паспорта указать ФИО,Возврвст ,Дату выдачи , и тд (очень надо) (можно ещё добавить оператор WITH)

[pomoshnic]

А что делать с записями? Или сделать ввод данных?

[n1ce > Kuzia]

Можно ввод данных

[n1ce > Kuzia]

вот можно ету доделать или на подобе
Type
Date = Record
Month : (Jan,Feb,Mar,Apr,May,June,July,Aug,
Sept, Oct, Nov, Decem );
99


Day : 1..31;
Year : 1900..2000
end;
Person = Record
Name, SecondName, SurName : string [20];
Sex : ( Male, Female );
Speciality : Word;
Birthday : Date
end;

[n1ce > Kuzia]

:D()()()())

[pomoshnic]

Type
Date = Record
Month : 1..12;
Day : 1..31;
Year : 1900..2000
end;
Person = Record
Name, SecondName, SurName : string [20];
Sex : ( Male, Female );
Speciality : Word;
Birthday : Date
end;
var i:person;
s:byte;
begin
 with i do
 begin
  Write('Name=');readln(Name);
  Write('SurName=');readln( SurName);
  write('Sex (0 - Male; 1 - Female )');readln(s);
   if s=0 then sex:=male else sex:=female;
  Write('Speciality=');readln(Speciality);
  Writeln('Birthday:');
  with birthday do
  begin
   Write('Year=');readln(Year);
   Write('Month=');readln(Month);
   Write('Day=');readln(Day);
  end;
 end;
 Writeln('/\/\/\/\/\/\/\/\/');
 with i do
 begin
  Writeln('Name=',Name);
  Writeln(' SurName=', SurName);
  write('Sex = '); if sex=male then writeln('male') else writeln('female');
  Writeln('Speciality=',Speciality);
  Writeln('Birthday:');
  with birthday do
  begin
   Writeln('Year=',Year);
   Writeln('Month=',Month);
   Writeln('Day=',Day);
  end;
 end;
readln
end.

[n1ce > Kuzia]

ага спсибб щас проверю