program mp(input,output);
type
  mingpian=record
    name:string[20];
    age:integer;
    phonenumber:string[7];
  end;
var
  mymp:array [1..10] of mingpian;
  i:integer;
  a,b:integer;

  procedure addall;
    begin
    for i:=1 to 10 do
      begin
        writeln;
        writeln('Input MingPian ',i,' of 10');
        write('Name:');readln(mymp[i].name);
        write('Age:');readln(mymp[i].age);
        write('phonenumber:');readln(mymp[i].phonenumber);
      end;
    end;

    procedure drawmnu;
    begin
      writeln;
      writeln('                   *****************************************');
      writeln('                   *                                       *');
      writeln('                   *               Ming Pian               *');
      writeln('                   *                                       *');
      writeln('                   *  1.Add All         2.View All         *');
      writeln('                   *  3.Modify One      4.Delete One       *');
      writeln('                   *  5.Search by Name  6.Search by Phone  *');
      writeln('                   *  7.Save to file    8.Read from file   *');
      writeln('                   *  9.End                                *');
      writeln('                   *                                       *');
      writeln('                   *  Please choose...                     *');
      writeln('                   *                                       *');
      writeln('                   *****************************************');
    end;

    procedure viewall;
    begin
      for i:=1 to 10 do
        begin
          writeln(i:4,': Name=',mymp[i].name:10,',   Age=',mymp[i].age:5,',   Phone=',mymp[i].phonenumber);
        end;
    end;

    procedure modifyone(x:integer);
    begin
      writeln('NO.',x,': Name=',mymp[x].name:10,',   Age=',mymp[x].age:5,',   Phone=',mymp[x].phonenumber);
      write('Input New Name:');readln(mymp[x].name);
      write('Input New Age:');readln(mymp[x].age);
      write('Input New Phonenumber:');readln(mymp[x].phonenumber);
    end;

    procedure deleteone(x:integer);
    var c:char;
    begin
      write('Are you sure to Delete the No.',x,'recoder? (Y or N):');
      readln(c);
      if ((c='Y') or (c='y')) then
        begin
          mymp[x].name:='';
          mymp[x].age:=0;
          mymp[x].phonenumber:='';
        end;
    end;
begin
  repeat
    drawmnu;
    readln(a);
    if (a=1) then addall;
    if (a=2) then viewall;
    if (a=3) then
      begin
        write('Input the Number which you want to modify:');
        readln(b);
        modifyone(b);
      end;
    if (a=4) then
      begin
        writeln('Input the Number which you want do Delete:');
        readln(b);
        deleteone(b);
      end;
  until (a=9);
end.