Помощ с задача на паскал

[MATTO]

Здравейте. Ето една задача за Паскал. Ако може някой може да помогне ще съм му много благодарен. Задачата ми трябва за другата седмица. Благодаря предварително.

 

Ето и задачата:

 

Разработете АТД "Автомобил"(Auto). Всяка структура от данни от тип Auto да съдържа следните компоненти:

-регистрационен номер(string)

-модел(string)

-брой места(byte)

-дата на регистрация(запис)

-собственик(запис- име и град)

Да се опишат прецедурите за:

-създаване на данни от тип Auto

create Auto(var A:Auto)

-модифициране на данни от тип Auto

modify Auto(var A:Auto)

-извеждане PrinteAuto(..)

функции за:

-достъп до регистрационен номер

AutoRegNum

-достъп до модел

AutoModel

-брой места

AutoPlace

-цвят на кола

AutoCol

-дата на регистрация

AutoData

-собственик

AutoOwner

-проверка дали два автомобила са на един и същи собственик

IsEqualOwner(A1,A2:Auto):boolean

-дали са с един и същи цвят

IsEqualColor

 

Обработката на данни да става чрез меню.