нужно решить инфарматика​

// PascalABC.NET

begin

 var СправочникКомпании := new List<string>;

 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.

1. – выбрать меню «File \ Change dir…» (Файл \ Сменить директорию) и указать диск и каталог, в который следует сохранить текст программы;

– выбрать меню «File \ Save as…» (Файл \ Сохранить как) и ввести имя файла в полеSave file as(по умолчанию Turbo Pascal устанавливает имя NONAMExx.PAS; необходимо указать другое наименование файла, используя при этом англоязычные символы);

3. Запустить программу и посмотреть, нет ли ошибок при компиляции

4. Компиляция - трансляция программы, составленной на исходном языке высокого уровня, в эквивалентную программу на низкоуровневом языке, близком машинному коду

5.Ctrl + F9

6. Write

   Writeln

7. Read

   Readln