Pascal. Вывести список студентов.

[irchelika]

Если не трудно, очень прошу помочь
Составить программу которая обеспечивает ввод исходных данных, обработку и вывод на экран информации. Вывести на экран список студентов, моложе 18 лет. N=5

помогите подправить программу

type
tstud = record
name:string;
year:byte;
end;
const
n=5;
var
stud: array [1..n] of tstud;
k:1..n;
begin
writeln('Введите имена и возраст года')
for k:=1 to n do
begin
write('имя -> ');
readln(stud[k].name);
write('возраст -> ');
readln(stud[k].year);
end;
writeln;
writeln('Лица моложе 18 лет');
for k:=1 to n do
if stud[k].year < 18 then writeln(stud[k].name);
readln;
end;

[Mad_Cat]

type
tstud = record
name:string;
year:byte;
end;
const
n=5;
var
stud: array [1..n] of tstud;
k:1..n;
begin
writeln('Введите имена и возраст');
for k:=1 to n do
begin
write('имя -> ');
readln(stud[k].name);
write('возраст -> ');
readln(stud[k].year);
end;
writeln;
writeln('Моложе 18');
for k:=1 to n do
if stud[k].year < 18 then writeln(stud[k].name);
readln;
end.

[irchelika]

Спасибо! ошиблась..