Робота с файлами. Что за ошибка "Встречено 'end', а ожидалось ';'"?

program file_1;
uses crt;
var 
f,fl:file of integer;
x,x_l,s,i:integer;
r:byte;
c:char;
begin
assign(f,'lol.dat');
repeat
writeln('головне меню');
writeln('1- створення файлу');
writeln('2- перегляд файлу');
writeln('3- доповнення файлу');
writeln('4- вилучення з файлу');
writeln('5- пошук максимального числа');
writeln('6- вихід з файлу');
writeln('vkagute regum');
read(r);
case r of
 
begin
{Si-}
rewrite(f);
{Si+}
if FileExists('lol.dat')=false
then begin
write('файл вже існує');
close(f);
exit;
end;
writeln('припинення створення файлу-число 9999');
repeat
reab(x);
if x<>9999
then write(f,x)
else break;
until false;
writeln('файл створено');
close(f);
end;
  begin
{Si-};
reset(f);
{Si+}
if FileExists('lol.dat')=false then
begin
write('файл не існує');
close(f);
exit;
end;
writeln('вмістиме файлу');
while not eof(f) do 
begin 
read(x,f);
write(x:6,'  ');
end;
writeln('файл прочитано повністю');
close(f);
  end;
  begin
{Si-}
reset(f);
{Si+}
if FileExists('lol.dat')=false then
begin
write('файл не існує');
close(f);
exit;
end;
seek(f,filesize(f));
writeln('припонення сворення файлу- число 9999');
repeat
read(x);
if x<>9999
then write(x,f)
else break;
until false;
close(f);
end;
 
  begin
assign(fl);
{Si+}
if FileExists('lol.dat')=false
then begin
write('файл вже існує ');
close(f);
exit;
end;
{Si-}
eset(f);
{Si+}
if FileExists('lol.dat')=false 
then begin 
write('файл не існує');
close(f);
exit;
end;
writeln('вмістиме файлу');
while not eof(f)do
begin
read(f,x);
write(x:6,'vulychatu(y/n)');
if c='n' then write(fl,x);
end;
close(f);
close(fl);
erase(f);
rename(fl,'lol.dat');
end;
  begin 
s:=0;
{Si-}
reset(f);
{Si+}
if FileExists('lol.dat')=false
then begin
write('файлу не існує');
close(f);
exit;
end;
writeln('вмістиме файлу');
while not eof(f)do
begin 
read(f,x);
write(x:6,'  ');
if (s=0) or (x>s)then s:=x;
end;
writeln('максимальний в файліє',s:6);
close(f);
end;
end.

case r of
 1: { блок создания файла}
 2: { ...}
 3: { ... }
...
end; {of case}