uses crt;
const
MaxSport = 100; // Максимально возможное число спортсменов
MaxZabeg = 100; // Максимально возможное число забегов
type
sport = record
fio:string; {ФИО}
time:integer; {Время в забеге}
end;
var
A: array [1..MaxSport, 1..MaxZabeg] of sport;
m,n:integer; // Объявить как глобальные, реальное число спортсменов-забегов
procedure vvod;
var
i,j: integer;
begin
write('Всего забегов: ');
readln(m);
// Тут еще можно вставить проверки на выход за пределы максимальных значений
for j:=1 to m do
begin
write('Число спортсменов в ',j,'-м забеге: ');
readln(n);
for i:=1 to n do
begin
writeln('Забег ',j);
write('ФИО ',i,'-го: ');
readln(a[i,j].fio);
write('Время забега (сек): ');
readln(a[i,j].time);
end; {цикл спортсмена}
end; {цикл забегов}
end; {vvod}
...
|
