ааааа...экзамен

[allter]

идет экзамен, пом с задачей...задана строка литературных героев. Они перечислены через запятую. Например чебураш.в, семь гномов, буратинойлсатог шапочка. Получите 2 текстовых файла. В первый нужно записать имена героев, спрос состоят из одного слова. Во втором все остальные.

[Serge_Bliznykov]

тему надо задавать правильно!
Кроме того, язык программирования то какой?!

алгоритм простейший.
Выделяете из строки всё, что до запятой, а потом полученную строчку проверяете на наличие знаков, разделителей (как минимум, в вашем случае это точка и пробел). Если разделитель есть - значит в строке больше одного слова, нет - имя состоит из одного слова.

[allter]

сорри, торопился...эт на делфи, сам в этом мало что понимаю, если не заструднит, напишите...

[Snejnaya]

var str, str1:string;
    file1,file2:textfile;
    n,m:integer;

begin
Assignfile(file1,"file1.txt");
Assignfile(file2,file2.txt");
Rewrite(file1);
Rewrite(file2);
writeln("vvedite stroku");
readln(str);
while(length(str)>0) do
  begin
  n:=pos(',',str);
  if (n=0) then str1:=str else str1:=copy(str,1,n);
  m:=pos(' ',str1);
  if (m=0) then Writeln(file1,str1)
           else writeln(file2,str1);
  delete(str,1,n);
  end;
Closefile(file1);
Closefile(file2);
end.

то на паскале, т.е. в консольном режиме А в делфи вместо выделенных readln,writeln будет что-то типа str:=Form1.Edit1.Text или Form1.Memo1.Text, как больше нравится. И программа будет написана в обработчике какого-то события (например, щелчка по кнопке)

[Serge_Bliznykov]

вот.
кинуть на форму Tedit и TButton

procedure TForm1.Button1Click(Sender: TObject);
var s, sOne : string;
  f1, f2 : TextFile;
begin
  AssignFile(f1, 'MultiW.txt');
  Rewrite(f1);
  AssignFile(f2, 'WordOne.txt');
  Rewrite(f2);
  s := Trim(Edit1.Text) + ',' ;
  while Pos(',',s)>0 do begin
     sOne := Trim(Copy(s, 1, Pos(',',s)-1));
     Delete(s, 1, Pos(',',s));
     if sOne<>'' then begin
       if (Pos(' ',sOne)>0) or (Pos('.',sOne)>0)then
         {многословное имя}
         WriteLn(f1, sOne)
       else
         WriteLn(f2, sOne);
     end;    
  end;
  CloseFile(f1);
  CloseFile(f2);
  ShowMessage('Готово!');
end;

строка берётся из Edit1



p.s. to Snejnaya, за Вами, за молодыми не угонишься..