program file_1;
uses crt;
var f: file of byte;
k,i,y,n,x: byte;
begin
begin
{создание файла}
randomize;
clrscr;
assign(f,'a:\aaa.bbb');
rewrite(f);
for i:=1 to 19 do
begin
n:=random(99);
write(n,' ');
end;
writeln;
close(f);
end;
{удаление среднего элемента}
begin
assign(f,'a:\aaa.bbb');
reset(f);
x:= filesize(f);
k:=((x div 2)+1);
for i:=k to (filesize(f)-1) do
begin
seek(f,i);
read(f,y);
seek(f,i-1);
write(f,y);
end;
truncate(f);
write(y,' ');
close(f);
end;
End.
ps частьв которой идет создание файла я задавал массивом и его уже писал в файл все работало
эту часть я изменил вторую не трогал
Сообщение отредактировано: Hunt666 -