встречено end а ожидалось

Ответ от Disgard Ark Silverberg[гуру]
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- вихід з файлу');
writekn('vkagute regam');
read(f);
case f of
end;
begin
Погляди что ты написал... -_-