Написать программу, которая выводит на экран сведения об учителях школы, у которых нет домашнего телефона - Pascal

Формулировка задачи:

Написать программу, которая выводит на экран сведения об учителях школы, у которых нет домашнего телефона. В массив данных об учителях школы включены фамилия, имя, отчество, адрес, телефон (у кого он есть).

Решение задачи: «Написать программу, которая выводит на экран сведения об учителях школы, у которых нет домашнего телефона»

Листинг программы

Const nmax=30;
      l='-----------------------------------------------------------------';
Type uchitel=Record
      patronymic:string[15];
      name:string[10];
      lastname:string[15];
      adress:string[10];
      telefon:string[8];
     End;
Var A:array[1..nmax] of uchitel;
    i,n:byte;
Begin
    Repeat
     write('Количество учителей 1<=n<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' учителе');
      write('Фамилия: ');readln(A[i].patronymic);
      write('Имя: ');readln(A[i].name);
      write('Отчество: ');readln(A[i].lastname);
      write('Адрес: ');readln(A[i].adress);
      write('Телефон(если нету,то - ): ');readln(A[i].telefon);
    End;
    writeln(l);
    writeln('    Фамилия     |   Имя    |   Отчество    |   Адрес  | Телефон |');
    writeln(l);
    For i:=1 to n do
     if A[i].telefon='-' then
      writeln('|',A[i].patronymic:15,'|',A[i].name:10,'|',A[i].lastname:15,'|',
       A[i].adress:10,'|',A[i].telefon:8,'|':2);
    writeln(l);
End.

Объяснение кода листинга программы

Объявлены переменные: nmax — количество элементов в массиве; l — строка для вывода; uchitel — тип записи, описывающий одного учителя; A — массив элементов типа uchitel; i, n — булевые переменные для цикла;
Задается диапазон для переменной n с помощью цикла repeat-until;
Для каждого учителя выводится информация на экран;
Выводится дополнительная информация в виде таблицы с использованием цикла for и условия if;
Завершается выполнение программы.