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

[GamBitFRK]

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

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

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

[Hacker19_90]

Как вводится? С клавиатуры, с файла?
Как хранится? Список, массив?
Добавить? Куда добавить? к чему добавлять? Есть хоть что-то?

[GamBitFRK]

Написано с клавиатуры.
Просто вывести результат
Сделать сортировку
И записи с вариантами

[ACE Valery]

Наработки свои выкладывайте, а то подобный приказной тон заставляет меня задуматься, стоит ли жить этой теме...

[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.

Неужели этого мало?

[Hacker19_90]

Неужели этого мало?

Да не сойдёт! ....
Ну вы что совсем не можете придумать как строки сравнить и соответствеено по результату сравнения упорядочить записи?