// PascalABC.NET
begin
var СправочникКомпании := new List;
while True do
begin
var НаборСлов := ReadlnString.ToWords;
var ЧислоСлов := НаборСлов.Length;
case ЧислоСлов of
2: СправочникКомпании.Add(НаборСлов[0] + ' ' +
НаборСлов[1]);
3: begin
СправочникКомпании.Add(НаборСлов[1] + ' ' +
НаборСлов[2]);
break
end;
else
Writeln('Нарушен формат данных, строка не принята')
end
end;
WriteAllLines('ТелефонныйСправочник.txt',
СправочникКомпании.ToArray)
end.
