Вывести список студентов старше 17 лет. Записи. Паскаль.

[iSkulll]

Нужно вывести список студентов старше 17 лет. Написал код программы, но я думаю что-то с циклом не так, и вместо имени студента вывожу их количество((( по другому не умею, подскажите как правильно сделать.

Program pr12;
 const n=6;
 type gruppa=record
           name: string[20];
           vozr: integer;
           end;
 var student: array[1..n] of gruppa;
     i,k: integer;
 begin
   for i:=1 to n do with student[i] do
      begin
        writeln;
        write('input name of studend====>');
        read(name);
        write('input age====>');
        read(vozr);
      end;
   for i:=1 to n do with student[i] do
   if vozr>=17 then k:= k+1;
   writeln;
   writeln('bolshe 17-',k);
 end.

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

2) тему надо давать АДЕКВАТНУЮ (отражающую суть задачи/проблемы)

Модератор.

[Serge_Bliznykov]

ну, это же совсем просто. У Вас в цикле идёт подсчёт (увеличение счётчика K на единицу каждый раз, как встречаем запись о студенте с возрастом 17 и старше.).
Достаточно заменить на вывод и задача решена.

  for i:=1 to n do with student[i] do
     if vozr>=17 then WriteLn('Name of student: ',name,' age: ',vozr);

и всё.

[GetMax]

 for i:=1 to n do with student[i] do
   if Student[i].vozr>=17 then Writeln(Student[i].Name);