Комбинированные типы данных_Массив записей

[ALEX_АНДр]

Помогите дописать...не пойму как это сделать(

Задание:

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

Как ввести массив записей вроде догнал как ввести.

Program laba;
var
infa:record;
fam:string[15];
god:1900..200;
mes:string[8];
den:1..31;
mero: string[20];
nat:string[15];
pol:string [3];
end;
Var
tbl:array[1..m] of infa;
i,m:integer;
Begin
Writeln ('введите кол-во записей m:=');
readln (m);
writeln ('Введите компоненты записей');
for i:=1 to m do
with tbl[i] do
readln (fam, god, mes, den, mero, mes, pol);


А что делать дальше...... ??? ПОдскажите пожлста!!!!

[Феска]

О_о
вроде что то такое должно быть

type TCLIENTS = record
year: integer;
month:integer;
firstName:string;
secondName:string;
// и так далее поля
var 
   MassiveOfClients: array of TCLIENTS;
   n,i:integer;
begin
Writeln('Number of Record :');
readln(n);
SetLength(MassiveOfClients,n);
// потом вводятся компоненты массива  типа 
Readln(MassiveOfClients[i].God := 1999;
// чтобы вывести данные на печать нужно работаь с Printer наверное //см в гугле http://www.delphimaster.ru/cgi-bin/forum.pl?id=1237366631&n=18 например 
end;

[ALEX_АНДр]

выводится они должны по-другому .....*это прога в Паскале, а не на Делфи, хотя не уверен...*......