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

Формулировка задачи:

При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке

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;

Подскажите, что делаю не так? Спасибо.

Решение задачи: «Ошибка при компиляции "Syntax error "Begin" expected but ";" found"»

textual
                            Листинг программы 
                        
                            {$GOTO ON}

Оцени полезность:

14 голосов , оценка 4.214 из 5

Похожие ответы