哈哈，我也正找这个系统阿，找到告诉我啊

program information(input,output);
uses
  crt;
type element=record
             name:string[18];
             telephone:string[15];
             postcode:string[6];
             end;
type sstudent=array[1..100] of element;
var
   student:sstudent;
   commandline:string[10];
   all:integer;
   j:integer;
   k:integer;
   tempstu:element;
begin
     clrscr;
     all:=0;
     commandline:='';
     {highvideo;}
     {textcolor(14);}
     gotoxy(20,10);
     writeln('WELCOME TO INFORMATION SYSTEM!');
     gotoxy(20,18);
     writeln('type HELP to get on-line help.');
     repeat
     until keypressed;
     clrscr;
  {***********************************};
      while commandline<>'quit' do
       begin
        writeln('command?');
        readln(commandline);

         if commandline='append' then
          begin
           all:=all+1;
            writeln('>name?');
            readln(student[all].name);
            writeln('>telephone?');
            readln(student[all].telephone);
            writeln('>postcode?');
            readln(student[all].postcode);
           end;

         if commandline='help' then
          begin
           writeln;
           writeln('>help:');
           writeln('>append:append a record.');
           writeln('>help:on-line help.');
           writeln('>quit:quit system.');
           writeln('>delete:delete a record.');
           writeln('>list:list a record.');
           writeln('>modify:modify a record.');
           writeln;
           writeln('>current record:',all);
           writeln;
           commandline:='';
           end;

         if commandline='list' then
          begin
           writeln('>who do you want to list?');
           readln(tempstu.name);
            for j:=1 to all do
             begin
              if student[j].name = tempstu.name then
               begin
                writeln;
                writeln('>name:',student[j].name);
                writeln('>telephone:',student[j].telephone);
                writeln('>postcode:',student[j].postcode);
                writeln;
                commandline:='';
               end;
             end;
          end;

         if commandline='delete' then
          begin
           writeln;
           writeln('>who do you want to delete?');
           readln(tempstu.name);
            for j:=1 to all do
             begin
              if student[j].name=tempstu.name then
               begin
                for k:=j to all-1 do
                 begin
                  student[j]:=student[j+1];
                 end;
                 all:=all-1;
                 commandline:='';
               end;
             end;
          end;

         if commandline='modify' then
          begin
           writeln;
           writeln('>who do you want to modify?');
           readln(tempstu.name);
            for j:=1 to all do
             begin
              if student[j].name=tempstu.name then
               begin
                writeln;
                writeln('input new name?');
                readln (student[j].name);
                writeln('input new telephone?');
                readln (student[j].telephone);
                writeln('input new postcode?');
                readln (student[j].postcode);
               end;
             end;
            commandline:='';
          end;
       end;
{textcolor(7);}
clrscr;
end.

我也有找着找到的话,请告诉我一声吧.

找到了告诉我一声啊,谢谢了啊

怎么就没有人想到要自己写呢?哎````````

楼上的是真的吗？

不会是作业吧？这么多人要，不过个人感觉应该不难实现呀！自己动手写写吧