Поправьте программу в Pascal пожалуйста

[MyAngelRem]

Распечатать фамилии детей данного детского сада, которые родились в определенном месяце; указать их возраст и группу.

Program hime; 
const n=3; 
type deti=record 
fam: string; 
age: integer; 
group: integer; 
month: integer; 
end; 
var a:array [1..n] of deti; 
i,m:integer; 
begin 
for I:=1 to n do 
readln(a[i].fam); 
readln(a[i].age); 
readln(a[i].group); 
readln(m); 
for i:=1 to n do 
if a[i].month=m then writeln(a[i].fam,'',a[i].age,'',a[i].group); 
end.

Вообщем сделал так, но она не работает, подскажите в чем ошибка



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

главная ошибка - Вы забыли взять повторяющийся в цикле код в операторный скобки begin / end

ну и дружественности добавить не помешает: сообщения пользователю лишними не будут, иначе не понятно, что ждёт программа, что нужно вводить.

рассмотрите такой пример:

Program hime; 
const n = 3;
type deti = record
    fam: string;
    age: integer;
    group: integer;
    month: integer;
  end;
var a: array[1..n] of deti;
  i, m: integer;
begin
  WriteLn('Ввод данных о ', n, ' детей');
  for I := 1 to n do begin
    WriteLn('Введите для ', i, ' ребёнка:');
    Write('   фамилию:'); readln(a[i].fam);
    Write('   возраст:'); readln(a[i].age);
    Write('   группу:'); readln(a[i].group);
    Write('   месяц рождения:'); readln(a[i].month);
  end;
  WriteLn;
  Write('Введите, какой месяц интересует:');
  ReadLn(m);
  for i := 1 to n do
    if a[i].month = m then writeln(a[i].fam, ' ', a[i].age, ' ', a[i].group);
  ReadLn
end.