Создайте базу данных о своих однокашниках

[arnold]

type 

     class=record
           imya:string;
           fam:string;
           pol:string;
           god:integer;
           end;
const odnoklass:array[1..4] of class =
      ((imya:':Женя';fam:'Северин';pol:'м';god:1991;),
       (imya:'Вася';fam:'Лис';pol:'м';god:1990;),
       (imya:'Вася';fam:'Прудков';pol:'м';god:1989;),
       (imya:'Оля';fam:'Выпирайло';pol:'ж';god:1991;));
var i,b,c:integer;
begin
  s:=0;                                            {Подсчет среднего возраста}
  for i:=1 to 4 do writeln(s:=s+odnoklass[i].god);
  writeln(Средний возраст=,2013-(s/4));            {конец}
  b:=0;                                            {Подсчет мужского и женского пола}
  c:=0;
  for i:=1 to 4 do begin
    if odnoklass[i].pol:='м' then b:=b+1 else c:=c+1;
  end;
  if b>c then writeln('Мужчин больше');             {конец}
end.

Необходимо
а) Вычислить средний возраст ваших однокашников
б) Определить, кого среди них больше – дам или кавалеров
в) Ответить на вопрос – есть ли в вашей базе тезки .


1)В строке 1.3 выбивает "Ожидался идентификатор" что я не так написал?
2)Правильно ли у меня составлена программа?
3)Как вычислить тезак?
Всем спасибо

[Poma][a]

type

     class=record
           imya:string;
           fam:string;
           pol:string;
           god:integer;
           end;
const odnoklass:array[1..4] of class =
      ((imya:':Женя';fam:'Северин';pol:'м';god:1991;),
       (imya:'Вася';fam:'Лис';pol:'м';god:1990;),
       (imya:'Вася';fam:'Прудков';pol:'м';god:1989;),
       (imya:'Оля';fam:'Выпирайло';pol:'ж';god:1991;));
var i,s,b,c:integer;
begin
  s:=0;                                            {Подсчет среднего возраста}
  for i:=1 to 4 do s:=s+odnoklass[i].god;
  writeln('Средний возраст=', 2013-s/4 : 0 : 0);            {конец}
  b:=0;                                            {Подсчет мужского и женского пола}
  c:=0;
  for i:=1 to 4 do begin
    if odnoklass[i].pol='м' then b:=b+1 else c:=c+1;
  end;
  if b>c then writeln('Мужчин больше')
    else WriteLn ('Прекрасного пола больше');     {конец}
  for i:=1 to 4 do begin                                       {Подсчет тезак}
   if (odnoklass[i].imya='Женя') and (i<>1) then writeln('Есть теска Жени');
   if (odnoklass[i].imya='Вася') and (i<>2) then writeln('Есть теска Васи');
   if (odnoklass[i].imya='Оля') and (i<>4) then writeln('Есть теска Оли');
  end;
end.

Чуть-чуть подправил..

[arnold]

Сообщение от Poma][a

Что-то мне подсказывает что тезки есть у всех..

Ой, чур меня, чур

С тезками и правда, что то не то . А вот с

writeln(s:=s+odnoklass[i].god);

Поделить все на 4 и отнять все от 2013. Все будет нормально

[Serge_Bliznykov]

согласен. Жуть!

привёл в МИНИМАЛЬНЫЙ порядок...

const
  CountOfPeople = 4;
type
     Myclass=record
           imya:string;
           fam:string;
           pol:string;
           god:integer;
           end;
const odnoklass:array[1..CountOfPeople] of Myclass =
      ((imya:':Женя';fam:'Северин';pol:'м';god:1991),
       (imya:'Вася';fam:'Лис';pol:'м';god:1990),
       (imya:'Вася';fam:'Прудков';pol:'м';god:1989),
       (imya:'Оля';fam:'Выпирайло';pol:'ж';god:1991));
var
  i,b,c,s:integer;

begin
  s:=0;                                            {Подсчет среднего возраста}
  for i:=1 to CountOfPeople do
    s:= s+ 2013 - odnoklass[i].god;  {просуммируем возраст всех}

  writeln('Средний возраст=',s/4:0:2);      {выведем средний возраст}
                                            {конец}

  b:=0;              {Подсчет мужского и женского пола}
  c:=0;
  for i:=1 to CountOfPeople do begin
    if odnoklass[i].pol='м' then b:=b+1 else c:=c+1;
  end;
  if b>c then writeln('Мужчин больше');             {конец}

  for i:=1 to CountOfPeople do begin            {Вывод сообщения о тезках}
   if odnoklass[i].imya='Женя' then writeln('Есть тезка Жени');
   if odnoklass[i].imya='Вася' then writeln('Есть тезка Васи');
   if odnoklass[i].imya='Оля' then writeln('Есть тезка Оли');
  end;
  Readln
end.