Записи

[DRAgon™]

Никак не могу 3 вопрос зделать может кто-нить подскажет
вот задача
Создайте базу данных о своих однокашниках. О каждом однокашнике должно быть известно:
• Фамилия
• Имя
• Пол
• Год рождения
Обязательно используйте массив не меньше, чем из 10 записей. Программа должна:


3) Ответить на вопрос – есть ли в вашей базе тезки

вот что я решил

TYPE 	odnokashniki   = 	record
        Familiia:String;
				    imya:String;
             Pol:String;
				god_rozd:Word;
				 			end;

CONST zapisi: array[1..10] of odnokashniki    =
      (Familiia:'Кузьминов';imya:'Андрей'; Pol:'мужской';   god_rozd:1995);
      d1:odnokashniki                     =
      (Familiia:'Коньков';imya:'Никита'; Pol:'мужской';     god_rozd:1995);
      d2:odnokashniki                     =
      (Familiia:'Фадеева';imya:'Алла'; Pol:'женский';        god_rozd:1989);
      d3:odnokashniki                     =
      (Familiia:'Тарасов';imya:'Юра'; Pol:'мужской';    god_rozd:1985);
      d4:odnokashniki                     =
      (Familiia:'Тарасова';imya:'Марта'; Pol:'женский';    god_rozd:1994);
      d5:odnokashniki                     =
      (Familiia:'Чутак';imya:'Настя'; Pol:'женский';    god_rozd:1993);
      d6:odnokashniki                     =
      (Familiia:'Холод';imya:'Влад'; Pol:'мужской';     god_rozd:1997);
      d7:odnokashniki                     =
      (Familiia:'Шериков';imya:'Валера'; Pol:'мужской';     god_rozd:1996);
      d8:odnokashniki                     =
      (Familiia:'Мартынов';imya:'Алексей'; Pol:'мужской';     god_rozd:1984);
       d9:odnokashniki                     =
      (Familiia:'Исправникова';imya:'Ольга'; Pol:'женский';     god_rozd:1993);
VAR	a:	real;
i,alld,imya:integer;
BEGIN
 Writeln('Есть ли в вашей базе тезки? ');


 

END.
Помогите 3 зделать пожалуйста.

[RUSt88]

давай помогу за небольшое вознаграждение

[Stilet]

for i:=1 to 10 do
 if zapisi[i].imya='DRAgon™' then begin
   write('Ага. Есть такой');readln;halt;
 end;

[DRAgon™]

Сообщение от Stilet

for i:=1 to 10 do
 if zapisi[i].imya='DRAgon™' then begin
   write('Ага. Есть такой');readln;halt;
 end;

Спасибо вам