процедуры

Program knigi;
Uses crt;
Type
 kniga=record            {Тип запись}
    avtor: string[20];           {Поле автор}
    name: string;                 {Поле название книги}
    god:word;                      {Поле год издания}
    cena:word;                     {Поле цена книги}
 End;
Var
   i,n:byte;
   g,max:word;
   A: array [1..5] of kniga;       
                        {Массив записей о книгах из 5 элементов}
Begin
Clrscr;                      {Цикл для ввода информации в массив}
For i:=1 to 20 do begin
Writeln('Avtor: ');
Readln(A[i].avtor);
Writeln('Nazvanie knigi: ');
Readln(A[i].name);
Writeln('god izdaniya: ');
Readln(A[i].god);
Writeln('cena knigi: ');
Readln(A[i].cena);
End;
Clrscr;
For i:=1 to 5 do begin
         {Цикл для вывода информации из массива на экран}
   With A[i] do
         Writeln(avtor:15,name:15,god:6,cena:6);
End;
Writeln;
max:=0;
Writeln('kniga s maksimalinoi cenoi  ');
For i:=1 to 20 do begin
             {Цикл для поиска книги с максимальной ценой}
    if A[i].cena>max then begin
          max:=A[i].cena;
          n:=i;
          End;
End;
  With A[n] do
         {Вывод записи о книге с максимальной ценой}
         Writeln(avtor:15,name:15,god:6,cena:6);
Readln;
End.