program pr;
uses crt;
var i,f,k,p:integer;
Number:array[1..100] of integer;
Fam:array[1..15] of string;
DayIn:array[1..30] of integer;
DayOut:array[1..30] of integer;
Summ:array[1..10000] of integer;
ch:char;
begin
clrscr;
writeln('Vvedite kol-vo etagey gostinici');
readln(f);
writeln('Vvedite kol-vo nomerov na etage');
readln(k);
writeln('Vvedite stoimost progivaniya v sutki');
readln(p);
writeln('Vvedite dannie o prozhivayuschih, VIHOD - ESC:');
i:=0;
repeat
inc(i);
writeln('Vvedite nomer');
readln(Number[i]);
writeln('Vvedite familiyu');
readln(Fam[i]);
writeln('Vvedite den vezda');
readln(DayIn[i]);
writeln('Vvedite den diezda');
readln(DayOut[i]);
ch:=readkey;
until (ch=#27) or (i=f*k);
writeln('|Nomer| Familiya|Vezd|Viezd| Summa|');
writeln('_____________________________________________');
for i:=1 to f*k do
begin
Summ[i]:=(DayOut[i]+1-DayIn[i])*p;
if Number[i]<>0 then
begin
write('|',Number[i]:5,'|',Fam[i]:15,'|', DayIn[i]:4,'|');
write(DayOut[i]:5,'|', Summ[i]:10,'|');
writeln;
end;
end;
writeln('_____________________________________________');
repeat until Keypressed;
end.
Помогите пожалуйста отсортировать табличку по массиву Summ от максимального к минимальному.