Записи (record)

[inzerts]

Помогите, пожалуйста.
Создать тип данных описывающих договор:
1) название
2) время заключении
3) количество страниц
4) срок действия.
Ввести данные 3 договоров и вывести список в виде таблицы.

[ViktorR]

Например:

Type
   TDate = record
      dd : integer; {День}
      mm : integer; {Месяц}
     yyyy: integer; {Год}
   end;
   TDogovor = record
      Name : String;
      BDate : TDate;
      Sheets: Integer;
      EDate: TDate;
   end;

var MDogovor : array[1..3] of TDogovor;
{Ну и далее запрашиваешь данные для трех договоров}
{а затем выводишь на экран в цикле, например}
for i := 1 to 3 do
begin
   writeln('Договор: ', MDogovor[i].Name);
...
end;

Но это только пример ...

Как-то так, ...