poohchess, Я объединил решения в одну программу. Ты без труда сможешь их разделить, если нужно ) Но в виде одной программы будет лучше, ИМХО.
Прилагаю 2 файла PROG.PAS и file.txt. Исходник и файл с фамилиями. Файл - для примера, чтобы ты проверил. Но можешь вбить в него свои примеры. Да, еще. Когда будешь запускать исходник - проследи, чтобы файл с фамилиями лежал в том же каталоге, что и исходник! Это важно. А вот и сам исходничек:
Code
Program ListUsers;
Uses CRT;
Var
f: Text;
f1: Text;
f2: Text;
s: String;
s1, s2: String; {s1 -- familiya, s2 -- imya, (s-(s1+s2) -- otchestvo}
Begin
ClrScr;
(* Podrazumevaem, 4to fail sushestvuet *)
Assign(f, 'file.txt');
ReSet(f);
{ Reshaem srazu A i B }
{------------------------}
Assign(f1, 'resultA.txt');
ReWrite(f1);
{------------------------}
Assign(f2, 'resultB.txt');
ReWrite(f2);
{------------------------}
While not (EoF(f)) do
Begin
Readln(f, s);
s1 := Copy(s, 1, Pos('_',s)-1);
Delete(s, 1, Pos('_',s));
s2 := Copy(s, 1, Pos('_',s)-1);
Delete(s, 1, Pos('_',s));
{Zadanie 1}
Writeln(f1, s2, '_',s,'_',s1);
{Zadanie 2}
Writeln(f2, s1, '_',s2[1],'.',s[1],'.');
End;
Close(f);
Close(f1);
Close(f2);
End.
