bible

program sort_sb;
uses crt;
const m=30;
  type
  bible=record
  name:string[25];
  fio:string[25];
  izd:string[25];
  b1,b2,b3,b4,b5:2..5;
  stoim:real;
  sb:real;
  num:integer
          end;
    var

    kniga:array[1..m] of bible;
    sbmin,sbmax:real;
    y:bible;
    min,max:real;
    nmin,nmax,kz,i,j,stoim:integer;

    otv:char;
      BEGIN
      textbackground(7);
      textcolor(13);
      clrscr;
      writeln('Дан ряд книг. Вывести цену самой дорогой книги, её автора, а также издательство данной книги.');
  while true do
begin
repeat
  writeln('Введите количество книг ');
  readln(kz);
until(kz>=i) and (kz<=m);
  for i:=1 to kz do
begin
  writeln('Введите данные ',i,'-ой книги ');
  writeln();


with(kniga[i]) do
begin
  writeln('----------------------------------');
  write('I Наименование книги: ');
  readln(name);
  writeln('----------------------------------');
  write('I ФИО Автора:');
  readln(fio);
  writeln('----------------------------------');
  write('I № по каталогу:');
  readln(num);
  writeln('----------------------------------');
  write('I Издательство:');
  readln(izd);
  writeln('----------------------------------');
  write('I Стоимость: ');
  readln(stoim);
  writeln('----------------------------------');
end;
end;


min:= kniga[1].stoim;
max:=kniga[1].stoim;
For i:=2 to kz do
with kniga[i] do
begin
if(stoim>max) then max:=stoim;
if(stoim<min) then min:=stoim;
End;







writeln('':8,'Импортированный массив ');
for i:=1 to kz do
with kniga[i] do
  writeln('':8,' ');
with kniga[i] do
  writeln ('Большая стоимость книги = ',max);
  writeln;
  writeln('Меньшая стоимость книги = ',min);

  for i:=1 to kz do
begin
  nmax:=i;
  sbmax:=kniga[i].sb;
for j:=j+1 to kz do
if(kniga[i].sb>sbmax) then
begin
  sbmax:=kniga[i].sb;
  nmax:=j;
end;
  y:=kniga[nmax];
  kniga[nmax]:=kniga[i];
  kniga[i]:=y;
end;


writeln('________________________________________________________________');
writeln('| Наименование книги | ФИО | Каталог | Издательство | Стоимость |');
writeln('_________________________________________________________________');
writeln('| ',kniga[nmax].name,' | ',kniga[nmax].fio,' | ',kniga[nmax].num,' | ',kniga[nmax].izd,' | ',kniga[nmax].stoim,'|');
writeln('_________________________________________________________________');
  readln();


  write('Продолжить работу?');
  readln(otv);
if((otv='N') or (otv='Y')) then break
end;
  writeln('программа сделана студентом 22П')
end.