Лабы / Pascal.1.курс / part 1 / LABA5 / VAR24 / LABA5_24

program laba5_var24;
uses crt;
const n = 5;
type
datum = record
fio:string[15];
bill:string[6];
summa:string[10];
end;
var
infa:array [1..n] of datum;
path:string[20];
ch:char;
max:integer;
i,j,num:integer;
al:string[10];
begin
clrscr;
ch:='y';
num:=1;
while ch<>'n' do
begin
with infa[num] do
begin
textcolor(white);
write('‚ўҐ¤ЁвҐ ”.€.Ћ.: ');
textcolor(green);
readln(fio);
textcolor(white);
write('‚ўҐ¤ЁвҐ ­®¬Ґа бзҐв : ');
textcolor(green);
readln(bill);
textcolor(white);
write('‚ўҐ¤ЁвҐ б㬬г: ');
textcolor(green);
readln(summa);
end;
textcolor(cyan);
if num<n then
begin
inc(num);
write(' ‚л е®вЁвҐ ўўҐбвЁ ¤ ­­лҐ ҐйҐ ®Ў ®¤­®¬ ўЄ« ¤Ґ? (y/n): ');
readln(ch);
end
else break;
end;
clrscr;
textcolor(cyan);
gotoxy(2,2);
write('”.€.Ћ.');
gotoxy(25,2);
write('Ќ®¬Ґа бзҐв ');
gotoxy(50,2);
write('‘㬬 ');
for i:=1 to num-1 do
begin
max:=i;
for j:=i+1 to num-1 do if infa[i].summa<infa[j].summa then max:=j;
al:=infa[i].summa;
infa[i].summa:=infa[max].summa;
infa[max].summa:=al;
al:=infa[i].bill;
infa[i].bill:=infa[max].bill;
infa[max].bill:=al;
al:=infa[i].fio;
infa[i].fio:=infa[max].fio;
infa[max].fio:=al;
with infa[i] do
begin
textcolor(white);
gotoxy(2,2+i);
write(fio);
gotoxy(25,2+i);
write('| ',bill);
gotoxy(50,2+i);
write('| ',summa);
end;
end;
readln;
end.