помогите написать программу)

[Яська]

Люди,оч нужно написать программу)))а то мне запорят весь аттестат.

Написать программу "библиотека",которая будет содержать в себе 20 наименований книг с соответствующим автором.Программа должна реализовывать сортировку по названию книги и по автору.

[alex_fcsm]

uses crt;
const n=20;
type Book=record
      name,author:string[40];
     end;
var i,j,k:integer;
    X:Array[1..n] of Book;
    temp:book;
    ch:char;
    
procedure Sort (Flag:byte);
begin
clrscr;
case flag of
1:begin
   for i:=2 to n do
    for j:=n downto i do
      if x[j-1].name>x[j].name then
        begin
          Temp:=x[j-1];
          x[j-1]:=x[j];
          x[j]:=temp;
        end;
   end;
2:begin
 for i:=2 to n do
    for j:=n downto i do
      if x[j-1].author>x[j].author then
        begin
          Temp:=x[j-1];
          x[j-1]:=x[j];
          x[j]:=temp;
        end;
  end;
 end;
for i:=1 to n do
 begin
  write(x[i].name,'---');write(x[i].author);
  writeln;
 end;
end;
    
begin
i:=0;
repeat
clrscr;
inc(i);
writeln('Input name');
readln(x[i].name);
writeln('Input book');
readln(x[i].author);
until i=n;
repeat
writeln('1-author');
writeln('2-book');
writeln('Esc-Esc');
ch:=readkey;
 case ch of
 '1':sort(1);
 '2':sort(2);
   end;
until ch=#27;
end.

[Яська]

пасибки большое)))