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.