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

WriteLn('Lubaia drugaia - prodolgitb');

Until ReadKey=#32

End;

Procedure ClearArray;

Begin

For i:=1 to MaxIndex Do

With a[i] Do Begin

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

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

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

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

a[i].Day:=0;

a[i].Month:=0;

a[i].Year:=0;

a[i].NomerTelefona:=0;

End;

End;

Procedure Deleting;

Begin

Repeat

Header('Ydalenie');

Writeln('Vvedenie:');

Writeln('1 - chtobi ydalitb odny 3apicb');

Writeln('0 - chtobi ydalitb Bce 3apicu');

Case ReadKey of

1': Begin

Write('Vvedite nomer cartochki: ');

ReadLn(i);

With a[i] Do Begin