Описать запись с именем Zodiac

program Zodiak;
uses crt;
const
  Graph=6;
  N=3;
 
type
  Menu = array[1..Graph] of string;
  Zodiac = record;
       surname: string;
       name   : string;
       Birthday : array [1..3] of integer;
       znak    :string;
  end;
  People = array[1..N] of Zodiac;
 
{----------------Ввод-------------------------}
function Enter(var pr: People): byte;
var
  i,res: byte;
  ch: char;
  num: string;
  code: integer;
 
begin
  res := 0;
  TextAttr := black;
  TextBackground(black);
  window(1,Graph+4,29,22);
  TextBackground(blue);
  ClrScr;
  for i := 1 to N do
  begin
    writeln('#',i);
    writeln('Введите Фамилию:');
    readln(pr[i].surname);
    writeln('Введите имя:');
    readln(pr[i].name);
    writeln('Введите знак зодиака:');
    readln(pr[i].znak);
    writeln('Введите число рождения:');
    readln(pr[i].birthday[1]);
    writeln('Введите месяц рождения:');
    readln(pr[i].birthday[2]);
    writeln('Введите год рождения:');
    readln(pr[i].birthday[3]);
 
    inc(res);
    clrscr;
  end;
  Enter := res;
end;
 
{---------------------------------------------------------}
procedure Show(pr: People; k: byte);
var
  i: byte;
  ch: char;
begin
  TextAttr := yellow;
  TextBackground(black);
  window(40,Graph+4,79,22);
  TextBackground(blue);
  ClrScr;
  for i := 1 to k do
    with pr[i] do
      writeln(surname,'|',name,'|',Birthday[1],'|',birthday[2],'|',birthday[3],'|',znak);
  repeat
    ch:=ReadKey;
    case ch of
      chr(72):
    end;
  until ch=chr(27);
end;
 
{---------------------Поиск-------------------------}
procedure Find(const pr: People; k: byte);
var
  i: byte;
  fl: boolean;
  ch: char;
  Name: string;
begin
  fl := false;
  TextAttr := black;
  TextBackground(black);
  window(1,Graph+4,29,22);
  TextBackground(yellow);
  ClrScr;
  writeln('Введите фамилию:');
  readln(Name);
  if (Name<>'') then
  begin
    TextAttr := yellow;
    TextBackground(black);
    window(40,Graph+4,79,22);
    TextBackground(blue);
    ClrScr;
    for i := 1 to k do
    begin
      if (Name=pr[i].Surname)
      then begin
        writeln(pr[i].surname,'|',pr[i].name,'|',pr[i].Birthday[1],'|',pr[i].znak);
        fl:= true;
      end;
    end;
    if not fl then writeln('Ничего не найдено');
  end;
  repeat
    ch := ReadKey;
  until ch=chr(27);
end;
 
procedure Sort(var pr: People; k: byte);
 
procedure ChangeP(n,m: byte);
var
  tmp: Zodiac;
 begin
  tmp := pr[n];
  pr[n] := pr[m];
  pr[m] := tmp;
 end;
 
var
  i: byte;
  t: boolean;
begin
    t := true;
    while t do
    begin
      t := false;
      for i := 1 to k-1 do
        if pr[i].surname[1]>pr[i+1].surname[1] then t := true;
      if t then ChangeP(i,i+1);
    end;{while}
end;
 
     function Load(var pr: People): byte;
var
  FileName: string;
  fpr: file of Zodiac;
  i: byte;
begin
  TextAttr := white;
  TextBackground(black);
  window(30,Graph+4,50,Graph+5);
  TextBackground(LightGray);
  ClrScr;
  writeln('Имя');
  readln(FileName);
  assign(fpr,FileName);
  reset(fpr);
  i:=1;
  while not EOF(fpr) do
  begin
    read(fpr,pr[i]);
    inc(i);
  end;
  close(fpr);
  Load := i-1;
end;
 
   procedure Save(var pr: People; k: byte);
var
  FileName: string;
  fpr: file of Zodiac;
  i: byte;
begin
  TextAttr := white;
  TextBackground(black);
  window(30,Graph+4,50,Graph+5);
  TextBackground(blue);
  ClrScr;
  writeln('Имя');
  readln(FileName);
  assign(fpr,FileName);
  rewrite(fpr);
  for i := 1 to k do
    write(fpr, pr[i]);
  close(fpr);
end;
{--------------------Рисование меню----------------------}
procedure MenuD(const List: Menu; select: byte);
var
  i: byte;
  x,y: word;
begin
  x:=1; y:=3;
  TextBackground(black);
  ClrScr;
  window(1,1,30,Graph+2);
  TextBackground(yellow);
  ClrScr;
  TextAttr := red;
  GoToXY(6,1);
  TextBackground(white);
  write('Меню');
  TextAttr := red;
  TextBackground(yellow);
  for i:=1 to Graph do
  begin
    GoToXY(x,y+i-1);
    write(List[i]);
  end;
  TextAttr:=black;
  TextBackground(green);
  GoToXY(x,y+select-1);
  write(List[select]);
  TextAttr:=yellow;
end;
 
 
{----------------------Главная программа---------------------}
const
  MenuI: Menu=('Ввод','Загрузить','Показать','Поиск','Сохранить','Выход');
 
var
  ch: char;
  pr: People;
  select, ent: byte;
 
begin
  select := 1;
  ent := 0;
  MenuD(MenuI, select);
  repeat
    ch := ReadKey;
    case ch of
      chr(80): if select<Graph then inc(select) else select:=1;
      chr(72): if select-1>0 then dec(select) else select := Graph;
      chr(75): begin
        case select of
          1: begin
            ent := Enter(pr);
            sort(pr,ent);
          end;
          2: Load (pr);
          3: Show(pr, ent);
          4: find(pr, ent);
          5: Save (pr,ent);
          6: ch := chr(27);
        end;
      end;
    end;
    MenuD(MenuI, select);
  until ch=chr(27);
end.