Составители:
Рубрика:
102
Begin
Write(‘Введите номер паспорта:’);
Readln(PPNum);
Write(‘Введите ФИО владельца:’);
Readln(FIO);
Write(‘Введите дату и место рождения владельца:’);
Readln(Birthday);
Write(‘Введите место жительства владельца:’);
Readln(Home);
Write(‘Введите дополнительную информацию: ‘);
Readln(Appendix);
Move(PPNum, Dump[0], SizeOf(PPNum));
Move(FIO[0], Dump[4], 60);
Move(Birthday[0], Dump[64], 64);
Move(Home[0], Dump[128], 64);
Move(Appendix[0], Dump[192], 64);
Repeat
Check_Card(Card_In);
Writeln;
If Not Card_In Then
Begin
Write(‘ Поместите смарт-карту в считыватель и нажмите
любую клавишу.’);
While Not KeyPressed Do;
End; { of If }
Until Card_In;
If (Not Card_Write(0, True)) or (Not Card_Write(1, True)) or
(Not Card_Write(2, True)) or (Not Card_Write(3, True))
Then
Begin
Writeln(‘ Ошибка! Не удалось записать смарт-карту!’);
Halt(1);
End { of If }
Else
Begin
Writeln(‘ Карта записана ...’);
End; { of Else }
End;
2:
Begin
Продолжение прил.
