Ошибка при компиляции "Syntax error "Begin" expected but ";" found" - Free Pascal

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