Компонентный файл Опции

[Анна]

Создать компонентный файл, компонентами которого являются символы. Поместить все компоненты в новый файл, записав их в обратном порядке. В качестве результата вывести имена файлов и кол-во компонент в них

В общем вот программа, но, к примеру, если я ввожу №%* он выводит *№%, нужно *%№

uses crt;
const
N=3;
var
   s,s1: string;
   f1, f : text;
   b: char;
   i  : integer;

begin
   clrscr;
   writeln ('Введите имя исх. файла: '); readln (s);
   assign(f,s);
   rewrite(f);
   writeln ('Введите имя рез. файла: '); readln (s1);
   assign (f1, s1);
   rewrite(f1);

   writeln ('Введите символы: ');

   for i:=1 to N do begin
    readln(b);
   write (f,B); end;



reset(f);
while not eof (f) do begin
for i:=length(s) downto 1 do write (f1,b);
   read (f, B);
  end;



   writeln ('Имя исх. файла: ',s);
   writeln ('Имя рез. файла: ',s1);
   writeln;
   writeln ('Вcе компоненты успешно переписаны');
   write ('Клавиша для выхода ...');
   readln;
   close(f);
   close(f1);
end.