Комбинированный тип(записи) Паскаль

[GamBitFRK]

С клавиатуры вводится информация о компьютерах: Марка, производитель, цена. Вывести на экран все компьютеры, у которых стоимость ниже среднего арифметического стоимостей.

2) в этой же проге, добавить сортировкув алфавитном порядке по 1 и 2 пункту( т.е. Марка и производитель)

3) Придумать, какую информацию можно хранить в этой проге с использование записей с вариантами. Добавить это в прогу.

[GamBitFRK]

Прога есть, помогите с сортировкой и записями с вариантами

uses crt;
type computer=record
marka,proizv:string;
price:longint;
end;
type mas=array[1..20] of computer;
var a:mas
i,n:integer;
sum,sr:real;
begin
clrscr;
readln(n);
for i:=1 to n do
with a[i] do begin
writeln('Введите марку');
readln(mark);
writeln('Введите производителя');
readln(proizv);
writeln('Введите цену');
readln(price);
end;
sum:=0;
for i:=1 to n do
sum:=sum+((a[i].price));
sr:=sum/n;
for i:=1 to n do
if a[i].price<sr then with a[i] do
writeln(marka,proizv,price);
readkey;
end.

[Serge_Bliznykov]

КРОССПОСТИНГ ЗАПРЕЩЁН


тема тут - http://www.programmersforum.ru/showthread.php?t=193791