Дано вещественное число a и целое число n (> 0). вывести a в степени n: an = a•a••a (числа a перемножаются n раз)

{1, 3, 4, 5, 7, 9}, {1, 5, 9}, {3, 4, 7}, {2, 6}

Объяснение:

1) Объединение A и C - все элементы, которые входят хотя бы в одно из множеств A, C. Но так как A - подмножество C (полностью входит в C), то объединение - это просто C: {1, 3, 4, 5, 7, 9}.

2) Пересечение A и C - все элементы, которые входят одновременно в оба множества A и C. В данном случае пересечение - это просто A: {1, 5, 9}.

3) Дополнение A до C - все элементы, которые лежат в C, но не в A: {3, 4, 7}.

4) Дополнение пересечения B и C до B: сюда должны входить все элементы, принадлежащие B, но не принадлежащие пересечению. Можно сообразить, что это превратится просто во все элементы B, не принадлежащие C: {2, 6}

Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
   then write(fr2,Marshrut)
   else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
  begin
  read(fr, Marshrut);
  write(fr2,Marshrut);
  end;
if (kol=1) then  write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).

Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
 begin
 read(fr, Marshrut);
 seek (fr, k1);
 write(fr, Marshrut);
 seek (fr, k2);
 write (fr, y);
 end;

end;