записи

[paladinn]

Помогите решить пожалуста.
1 Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года.
2 Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан массив, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и другое – действительное (вес в килограммах). Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи.

[EvKont]

type
people = record
fam : string;
nam : string;
bir : TDateTime;
end;
var
peoples : array of people;
i, k : integer;
begin
// Сдесь забиваем массив людьми
// ......

k := 0;
// А вот теперь выводим все после 1990 и считаем их
for i := 1 to length(peoples) do
if peoples[i].bir > StrToDate('01.01.1990') then
begin
WriteLn(peoples[i].fam, peoples[i].nam);
inc(k);
end;
WriteLn('Количесвто человек:= ', k);
ReadLn;
end.