Массив (Delphi)

[stasig]

Каким образом можно решить эту задачу?

Из массива записей, содержащих сведения о книгах (автор, название, индекс, цена) выбрать:
А) книги одного заданного автора
Б) книги под одним индексом
В) книги, у которых цена выше заданной

[Sazary]

Проходите в цикле по всем записям, сравнивая соответствующее поле с тем, что нужно (заданное имя автора, индекс, цена).
Странный вопрос.

[REztor]

Нужно сделать вручную ввод массива с клавиатуры:

procedure made(var a:arr;var n:integer;g:TStringGrid);
var i:integer;
begin

end;

Есть случайный ввод
procedure make(var a:arr;var n:integer);
var i:integer;
begin setlength(a,n);
for i:=0 to n-1 do
a[i]:=random(100);
end;

Помогите плиз