123

uses crt;
const
m=30;
type client = record
                fio:string[25];
                number,yis,kol,price:integer;
                end;
var
reestr:array[1..m]of client;
nmax,kz,i,j,n,dn:integer;
sbmax:real;
y:client;
otv:char;
BEGIN
 clrscr;
while true do
 Begin
 repeat
 write('Задайте количество записей: ');
 readln(kz);
 until(kz>=1)and(kz<m);
 for i:=1 to kz do
 begin
 write('Введитн данные ',i,'-го абонента');
 with reestr[i]do
  begin
  write(' ФИО: ');readln(fio);
//  write('Введите номер телефона: ');readln(number);
//  write('Введите год установки: ');readln(yis);
//  write('Введите кол-во абонентов: ');readln(kol);
  write('Введите оплату за месяц: ');readln(price)
 end
end;
  writeln;  writeln;
 writeln(' ':8,'Неотсортированнй массив');
 writeln('_________________________________________________________________');
 for i:=1 to kz do
  with reestr[i] do                                                                                    // ' | |', :10,
  begin
 writeln('|Абонент|',fio:10,' | Номер|',number:10,'| Год утсановки|',yis:4,'| Кол-во|', kol:2,'| О/М|', price:5,'|');
 writeln('-----------------------------------------------------------------');
 end;
writeln;
 nmax:=1;
    sbmax:=reestr[1].price;
for i:=1 to kz do
     if(reestr[i].price<sbmax)then
      begin
      sbmax:=reestr[i].price;
      nmax:=i
      end;

      n:=round(kz/2);

     y:=reestr[nmax];
     reestr[nmax]:=reestr[n];
     reestr[n]:=y;
  writeln;
 writeln(' ':8,'Отсортированный массив');
 writeln('_________________________________________________________________');
 for i:=1 to kz do
  with reestr[i] do
  begin
 writeln('|Абонент|',fio:10,' | Номер|',number:10,'| Год утсановки|',yis:4,'| Кол-во|', kol:2,'| О/М|', price:5,'|');
 end;
 writeln('-----------------------------------------------------------------');

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