Имя файла теста надо указать в командной строке запуска программы.

[evg_m]

в прочитанной строке МОЖЕТ не быть ни одного символа ('')
if (length(s)>0) and (s[1]<>'.') then

[ДениC]

Теперь в другом месте ошибка

procedure TForm8.Info;
var
   s,buf:string;
begin
   readln(f,s);
   Form8.Caption := s;
   buf:='';
   repeat
         readln(f,s);
         if (length(s)>0) and (s[1]<>'.')
         then buf := buf +s + #13;
   until s[1] ='.';   Label5.caption:=buf;
end;

[evg_m]

а разве здесь не так же

в строке МОЖЕТ не быть ни одного символа ('')

[ДениC]

т.е.

until lenght(s)=0 and s[1]='.'

[evg_m]

теперь переведите на русский ваше условие

until lenght(s)=0 and s[1]='.'

остановиться когда будет длина строки =0 и ее первый символ '.'
вам оно не кажется странным?

Я не говорю еще о том что ПРИ чтении (readln) в файле может НЕ оказаться строки.(файл закончился мы все уже прочитали а может там ничего и не было).

[ДениC]

Так может Вы будете так любезны, и покажите где что надо исправить?

[evg_m]

исправить ВОТ это

остановиться когда будет длина строки =0 и ее первый символ '.'

так чтобы не было странного.
Т.е. нормально сформулировать правило окончания цикла.
останавливаться только по '.'
разрешить остановиться по пустой строке (length()=0).
и записать данное правило с помощью операторов () and () or ().

[ДениC]

Сообщение от evg_m

и записать данное правило с помощью операторов () and () or ().

Я немножко не понял смысл этих слов

Все, теперь понял)
но выскакивает другая ошибка(

[ДениC]

Procedure GetLevel;
var
   i:integer;
   buf:string;
begin
     i:=1;
     repeat
         readln(f,buf);
         if buf[1] <> '.' then begin
            mes[i]:=buf;        
            [I]readln(f,level);
            i:=i+1;
         end;
     until buf[1]='.';
end;

Я выделил, где показывает ошибку