Файлы: писать сначала исходные цифры, потом записывать числа с четной позицией

uses crt;
var f:file of integer;
    i,a,x:integer;
begin
randomize;
assign(f,'123');
rewrite(f);
 
for i:=1 to 50 do
begin
write(f,i);
i:=i+3;
end;
 
reset(f);
writeln('содержание исходного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
 
while not eof(f) do
begin
for x:=1 to 50 do
begin
seek(f,x);
read(f,x);
writeln('числа с нужной нам позицией :',a);
x:=x+2;
end;
end;
 
close(f)
 
end.

while not eof(f) do
begin
for x:=1 to 100 do
begin
seek(f,x);
read(f,x);
writeln('числа с нужной нам комбинацией : ',x);
x:=x+2;
end;
end;

uses crt;
var f:file of integer;
    i,a:integer;
begin
randomize;
assign(f,'123');
rewrite(f);
 
for i:=1 to 50 do
begin
write(f,i);
i:=i+3;
end;
 
reset(f);
writeln('содержание исходного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
writeln('числа с четной позицией :');
seek(f,0);
i:=1;
while i<filesize(f) do
 begin
  seek(f,i);
  read(f,a);
  write(a,' ');
  i:=i+2;
 end;
close(f)
end.

uses crt;
var f:file of integer;
    i,a,max:integer;
begin
randomize;
assign(f,'123');
rewrite(f);
for i:=1 to 50 do
begin
write(f,i);
i:=i+3;
end;
reset(f);
writeln('содержание исходного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
writeln('числа с четной позицией :');
seek(f,0);
i:=1;
max:=-maxint-1;{самое маленькое целое число}
while i<filesize(f) do
 begin
  seek(f,i);
  read(f,a);
  write(a,' ');
  if a>max then max:=a;
  i:=i+2;
 end;
close(f);
write('Максимальное=',max);
end.