Program Test; uses crt;

type TData=record
       sname:string[100];
       host:string[50];
       cellphone:string[15];
       end;

const n=30;

var data:array [1..n] of TData;
    i:byte;

Begin clrscr;
for i:=1 to n do
    Begin
    Write('--------------------------------------------------------------------------------');
    Writeln(' Введите информацию о ',i:2,'-м ученике:');
    Write(' ФИО:     '); Readln(Data[i].sName);
    Write(' Адрес:   '); Readln(Data[i].Host);
    Write(' Телефон: '); Readln(Data[i].CellPhone);
    end;

Writeln;
Write('--------------------------------------------------------------------------------');
Writeln('Список учеников без телефона: ');
for i:=1 to n do if (Length(Data[i].CellPhone)=0) then Writeln(Data[i].sName);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.