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