Лабораторная работа: Работа с типами данных записи

a[i].Imia:='Umia';

a[i].Otchestvo:='Otchestvo';

a[i].MestoProgivanuia:='Mesto Progivanuia';

a[i].Day:=0;

a[i].Month:=0;

a[i].Year:=0;

a[i].NomerTelefona:=0;

End;

TextColor(Red);

WriteLn('Dannie udaleni');

TextColor(LightGray);

End;

0': Begin

ClearArray;

TextColor(Red);

WriteLn('Bce Dannie udaleni');

TextColor(LightGray);

End;

End;

Writeln;

WriteLn('Probel - menu');

WriteLn('Lubaia drugaia - prodolgitb');

Until ReadKey=#32

End;

Begin

ClearArray;

Repeat

Header('Laboratornaia 10');

WriteLn('1 - Prosmotr');