не могу понять що не так

[dizzy69]

вот моя лаба

видаэ file not open for ipute.
що сним зделать пидскажить пожалуста
буду очень вдячний

[p51x]

Открыть файл на чтение

[Stilet]

Открыть файл на чтение

Нет. Тут что-то другое.
Проверил - прога работает, но в турбопаскаль падает на Readln;

[dizzy69]

вона робить через раз. Один раз нормально потом падає на Readln а потом вибиває ошибку

[Serge_Bliznykov]

dizzy69,
проблема в том, что Вы совершенное не заботитесь о таких "мелочах", как проверка попадания индекса в заданный диапазон.

Поэтому, идёте в основное меню TP - Options - Compiler
и включаете все "птички" в разделе RunTime errors
(особенно важно в данном Вашем случае - [x] Range Checking
запускаете программу из под среды и ловите, ловите баги!

сразу рекомендую изменить процедуру OutTBiatlon(bi: tBiatlon);:

procedure OutTBiatlon(bi: tBiatlon);
var
  i: integer;
  ind: num;
begin
  i := 0;
  ind := num(i);
  while i <= ord(high(num)) do
  begin
    outbiatlon(bi[ind]);
    i := i + 1;
    if i <= ord(high(num)) then
      ind := num(i);
    readln;
  end;
end;

правда, к сожалению, дальше ещё вылезут Range check error...