Ошибка при компиляции "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" - Free Pascal»

textual
{$GOTO ON}
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ