Объясните(Pascal).

[Shmitok01]

Здравствуйте.
Ответьте пожалуйста мне на несколько вопросов по этому коду.

Program Shmitok;
Uses CRT;
Type Anketa=record
     Name:string[40];
     Data:record
                Day:1..31;
                Month:1..12;
                Years:integer;
     Sport:string[15];
     YearsInSport:Byte;
End;
End;
var Human:Anketa;
Begin
With Human Do
Begin
Name:='Ivan Vany Ivanov';
With Data Do
Begin
Day:=21;
Month:=5;
Years:=1984;
Sport:='Shashki';
YearsInSport:=11;
End;
End;
End.

1Можно-ли какое-то кол-во людей (Human от 3шт.) задать как переменные?

2Если 1 возможно то как сделать чтобы выводила людей с одинаковым параметром (например Sport)?

3Возможно ли здесь как нибудь применить массивы?

4Надо ли к переменной (Data) присваивать (record) и что это дает?

[Mad_Cat]

1)да
2)поиск
3)да
4) да! удобство

[Shmitok01]

Спасибо.
А код мне не напишите насчет 1и3?

[Serge_Bliznykov]

по 1-му и 3-му

var Human:Anketa;
   Humans : array[1..100]  of Anketa; {массив на 100 записей-анкет}

2 Если 1 возможно то как сделать чтобы выводила людей с одинаковым параметром (например Sport)?

возможно. я бы отсортировал массив записей по полю Sport, потом в цикле проходил, и, если следующий человек имеет такое же значение поля Sport - выводил его...

либо можно по другому. без сортировки. В цикле. берём значение поля Sport у текущей записи (I-e значение). Проходим в цикле, сначала до 1 до I-1 - если нашли такое же значение - то всё. эта запись уже обработана, её не выводим. Если же не нашли, то пройтись в цикле от I+1 до N и вывести все совпавшие записи (не забыть в этом случае, когда нашли ещё записи с таким же значением поля) вывести и I-ю запись.
и всё.

[Shmitok01]

Спасибо за оказанное внимание и помощь.