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