Из списка группы вывести фамилии студентов не старше 18 лет — Pascal(Паскаль)

uses crt;
const nmax=30;
Type student = record
               Surname: String[15];
               Age:byte;
               end;
var s:array[1..nmax] of student;
    n,i,k:byte;
begin
repeat
write('Количество студентов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  write(' Фамилия: ');readln(s[i].Surname);
  write(' Возраст: ');readln(s[i].Age);
 end;
k:=0;
writeln('Студенты не старше 18 лет:');
for i:=1 to n do
if s[i].Age<=18 then
 begin
  k:=1;
  writeln(s[i].Surname,'  ',s[i].Age);
 end;
if k=0 then write('Таких студентов нет!');
readln
end.