Ошибка при компиляции "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
Похожие ответы