Сформировать файл W, состоящий из целых чисел. Переписать в файл V все четные положительные числа из файла в убывающем порядке. Найти их сумму.

uses crt;
var w,v:file of integer;
    n,i,a,s:integer;
begin
randomize;
write('Сколько чисел записать в файл n=');
read(n);
assign(w,'FileW');
rewrite(w);
assign(v,'FileV');
rewrite(v);
for i:=1 to n do
 begin
  a:=-20+random(50);
  write(w,a);
 end;
writeln('Файл W:');
s:=0;
reset(w);
while not eof(w) do
 begin
  read(w,a);
  write(a:4);
  if(a>0)and(a mod 2=0)then
   begin
    write(v,a);
    s:=s+a;
   end;
 end;
writeln;
close(w);
if s=0 then write('Четных положительных чисел нет, файл V пустой')
else
 begin
  reset(v);
  writeln('Файл V:');
  while not eof(v) do
   begin
    read(v,a);
    write(a:4);
   end;
  writeln;
  write('Сумма=',s);
 end;
close(v);
end.

var
  w,v:file of integer;
  i,j,n,x,z,t,s:integer;
begin
  write('n=');
  readln(n);
  assign(w,'w.int');
  rewrite(w);
  randomize;
  for i:=1 to n do
    begin
      x:=-20+random(41);
      write(w,x);
    end;
  assign(v,'v.int');
  rewrite(v);
  s:=0;
  writeln('Soderzhimoe faila W');
  seek(w,0);
  while not eof(w) do
    begin
      read(w,x);
      write(x:4);
      if (x>0) and (x mod 2=0) then
        begin
          write(v,x);
          s:=s+x;
        end;
    end;
  writeln;
  close(w);
  if s=0 then
    writeln('Fail V pustoi')
  else
    begin
      seek(v,0);
      for i:=0 to filesize(v)-2 do
        for j:=i+1 to filesize(v)-1 do
          begin
            seek(v,i);
            read(v,x);
            seek(v,j);
            read(v,z);
            if x<z then
              begin
                t:=x;
                x:=z;
                z:=t;
              end;
            seek(v,i);
            write(v,x);
            seek(v,j);
            write(v,z);
          end;
      writeln('Soderzhimoe faila V');
      seek(v,0);
      while not eof(v) do
        begin
          read(v,x);
          write(x:4);
        end;
      writeln;
      writeln('S=',s);
    end;
  close(v);
end.