описать группу учеников.

[Vika_0_0]

Описать группу учеников, включив о них следующие данные: имя, пол, рост, возраст. Распечатать эти данные в виде таблицы и выдать имя и рост самого высокого мальчика, самой маленькой девочки и средний рост группы.

слабо понимаю "Записи", надеюсь на вашу помощь.
заранее огромное спасибо!!!!!

[Hacker19_90]

Есть наработки какие-то?

[whatever]

Поиск не вариант? http://programmersforum.ru/showthread.php?t=197917

[Vika_0_0]

а можно как-нибудь это сделать экономнее?

[Hacker19_90]

а можно как-нибудь это сделать экономнее?

что вы имеете ввиду?

[Vika_0_0]

ну может попроще сделать, если можно конечно..

[Hacker19_90]

а группа учеников у вас как хранится должна в файле, СПИСКЕ, массиве?

[TinMan]

const
  m= 100;

type
  tPupil: record
    LastName, FirstName: string[20];
    Gender: (male, female);
    Height, Age: integer;
  end;

var
  p: array[1..m] of tPuple;
  TallBoy,ShortGirl: integer;
  AverageHeight: real;
...........

begin
  ...... // вводим данные с клавы или из файла
  writeln('Имя':21, 'Фамилия':-21, 'Рост (см)':10,'Возраст':10);
  for i:=1 to n do with p[i] do writeln(FirstName:-21, LastName:-21, Height:10,Age:10);
  TallBoy:= 0;
  ShortGirl:= 0;
  AverageHeight:= 0;
  for i:=1 to n do with p[i] do begin
    if Gender=Male then begin
      if (TallBoy=0) or (Height>p[TallBoy].Height) then TallBoy:= i
    end
    else begin
      if (ShortGirl=0) or (Height>p[ShorGirl].Height) then ShortGirl:= i
    end;
    AverageHeight:= AverageHeight+Height
  end;
  if TallBoy=0 then writeln('No boys in this group')
  else with p[TallBoy] do
    writeln('the tallest boy is ',FirstName,' ',LastName,', he is ',Height,' cm tall');
  if ShortGirl=0 then writeln('No girls in this group')
  else with p[ShortGirl] do
    writeln('the shortest girl is ',FirstName,' ',LastName,', she is ',Height,' cm tall');
  writeln('the average height in this group is ',AverageHeight/n:0:1,' cm');

Видишь, Вика, как все просто?.. ))
Раз! - и бедная группа учеников пошла вся мокрая..