Создать список спортсменов - Pascal

Формулировка задачи:

1) Создать список спортсменов. 1.Описать и вывести массив, содержащий 10 записей следущей структуры: фамилия,имя,возраст,вес, рост,город. 2.Вывести массив в табличном виде. 3.Вывести списки спортсменов 1986 года рождения, чей вес превышает 50 кг, затем найти самого высокого спортсмена. Спасибо!

Решение задачи: «Создать список спортсменов»

Листинг программы

program pr;
const
  Csize = 10;
  god = 2016;
type
  Tsport = record
    surname: string[50];
    name: string[50];
    age: integer;
    weight: real;
    height: real;
    city: string[50];
  end;
  Tarr = array [1..Csize] of Tsport;
var
  i, n, index: integer;
  a: Tarr;
  max: real;
begin
  writeln('Введите количество спортсменов');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите фамилию');
    readln(a[i].surname);
    writeln('Введите имя');
    readln(a[i].name);
    writeln('Введите возраст');
    readln(a[i].age);
    writeln('Введите вес');
    readln(a[i].weight);
    writeln('Введите рост');
    readln(a[i].height);
    writeln('Введите город');
    readln(a[i].city);
    writeln;
  end;
  writeln('|   Фамилия   |   Имя   |   Вес   |   Рост   |   Город   |   Возраст  | ');
  writeln('|----------------------------------| ');
  for i := 1 to n do
  begin
  writeln('|   ',a[i].surname,'   |   ', a[i].name,'   |   ',a[i].weight,'   |   ',a[i].height,'   |   ',a[i].city,'   |   ', a[i].age,'   |');
  end;
  writeln;
  writeln('Cписки спортсменов 1986 года рождения, чей вес превышает 50 кг');
  for i := 1 to n do
    if (a[i].age = 30) and (a[i].height > 50) then
    begin
      writeln('  |   ', a[i].surname, '        |   ', a[i].name,   '  |   ', a[i].weight, '     |   ', a[i].height, '      |   ', a[i].city, '    |   ', a[i].age, '   | ');
    end;
  writeln('Самый высокий спортсмен');
  max := a[1].height;
  for i := 1 to n do
    if a[i].height >= max then
    begin
      max := a[i].height;
      index := i;
    end;
  writeln(a[index].surname, ' ', a[index].name,   ' ', a[index].weight, ' ', a[index].height, ' ', a[index].city, ' ', a[index].age);
end.

Объяснение кода листинга программы

Объявлены константы и типы данных:
- Csize - константа для задания размера списка спортсменов (значение: 10)
- god - константа для указания текущего года (значение: 2016)
- Tsport - тип записи, описывающий характеристики спортсмена (поля: surname, name, age, weight, height, city)
- Tarr - массив из записей спортсменов (размер: Csize)
Объявлены переменные:
- i - переменная-счетчик для циклов (значение: integer)
- n - количество спортсменов (вводится пользователем)
- index - индекс самого высокого спортсмена
- a - массив спортсменов заданного размера (Tarr)
- max - переменная для хранения самого большого роста спортсмена (значение: real)
Выводится приглашение к вводу количества спортсменов.
В цикле пользователю предлагается ввести характеристики спортсменов:
- Фамилия
- Имя
- Возраст
- Вес
- Рост
- Город
Далее выводится таблица с характеристиками спортсменов в виде таблицы.
Затем выполняется поиск спортсменов 30 лет, рост которых превышает 50 кг и вывод результатов в виде таблицы.
Следующим шагом выполняется поиск самого высокого спортсмена и вывод его характеристик.
Завершение программы.