Invalid numeric input

[ДениC]

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

Что делать???

[Пепел Феникса]

вам надо считать все строки до точки?(причем все что до точки числа)

[ДениC]

Сообщение от Пепел Феникса

вам надо считать все строки до точки?(причем все что до точки числа)

Да, именно так

[Пепел Феникса]

тогда примерно так

i:=1;//у вас статический массив?
while true do
 begin
  readln(f,buf);
  if(buf='.')then break;
  mes[i]:=buf;//а если переполнение массива?
  level:=StrToInt(buf);//только level будет содержать последнюю строчку, зачем сие?
 end;

[ДениC]

Может вам исходник дать?