Дан файл целых чисел, содержащий четное количество элементов. Удалить из данного файла вторую половину элементов.

Var f:file of integer;

a, i, k, n:integer;

begin

randomize;

assign (f,'file') ;

rewrite (f) ;

repeat

write ('Четное количество элементов: ') ;

readln (n) ;

until (n>1) and (n mod 2=0) ;

for i:=1 to n do

begin

a:=random (100) ;

write (f, a) ;

end;

writeln ('Содержание исходного файла:') ;

reset (f) ;

while not eof (f) do

begin

read (f, a) ;

write (a,' ') ;

end;

close (f) ;

writeln;

reset (f) ;

seek (f, filesize (f) div 2) ;

truncate (f) ;

writeln ('Содержание измененного файла:') ;

reset (f) ;

while not eof (f) do

begin

read (f, a) ;

write (a,' ') ;

end;

close (f) ;

readln

end.