program Only_for_you_Nataly;

{ Писал под линухом, но в M$ тоже должно работать :) }

const
names='ABCDEFGHIJKLMNOPQRSTUVWXYZ'; { Имена новых файлов (можно массивом) }
delim='!!!!!'; { Разделитель файов }

var
f,newf : text; { Дескрипторы файлов }
n : integer; { Индекс имени следующего файла }
st : string; { Обрабатываемая строка файла}

begin

assign (f,paramstr(1)); { Открываем исходный файл, имя берем из параметров командной строки }
reset(f); { Переходим в начало файла }

n:=1;
assign (newf,names[n]);
rewrite (newf);

while not(eof(f)) do { Пока не конец файла }
  begin
  st:='';
  readln(f,st); { Читаем строку }
  if st<>delim then writeln (newf,st) { Если строка не разделитель, пишем ее в файл }
  else
    begin { Иначе }
    close(newf); { Закрываем файл }
    n:=n+1; { Берем слудующее имя }
    assign(newf,names[n]); { Открываем файл }
    rewrite(newf); { Перезаписываем файл }
    end;
  end;

{ Закрываем оба файла }
close (newf);
close (f);

end.


Писал под линухом, но в MS принцип тот же