обработка символьной информации

[Sangreal]

Помогите пожалуйста,выводит студентов младше 16,но не выдает их количество,не понимаю в чем дело.

const l=20;
type
      students=record
      fio:string[20];

     pol:string;
     stip,grup,fiz,mat,inf,data:integer;

end;
gruppa= array[1..l] of students;
var
    i,k,n:integer;
    s:gruppa;


begin
Write('n=');
read(n);
For i:=1 to n do
begin
writeln('Gruppa');readln(s[i].grup );
writeln('FIO: ');readln(s[i].fio);
writeln('God: ');readln(s[i].data);
writeln('Pol: ');readln(s[i].pol);
write('fizika - ');read(s[i].fiz);
write('math  - ');read(s[i].mat);
write('informatika - ');read(s[i].inf);
writeln('Stipendya: ');readln(s[i].stip);
end;
k:=0;
for i:=1 to n do
begin
if 2011-s[i].data<=16 then
 begin
k:=k+1;
 writeln(s[i].grup,' ',s[i].fio,' ',s[i].data);
writeln(s[i].fiz,' ',s[i].mat,' ',s[i].inf,' ',s[i].stip);

end
else
if (k<=0) then
writeln ('students not found');
end;
end.

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

[whatever]

В твоей версии ты и не просил выводить их количество. И будь внимательнее, когда циклы пишешь, там основная ошибка и была.

const l=20;
 type
 students=record
 fio:string[20];

 pol:string;
 stip,grup,fiz,mat,inf,data:integer;

 end;
 gruppa= array[1..l] of students;
 var
 i,k,n:integer;
 s:gruppa;


 begin
 Write('n=');
 read(n);
 For i:=1 to n do
 begin
 writeln('Gruppa');readln(s[i].grup );
 writeln('FIO: ');readln(s[i].fio);
 writeln('God: ');readln(s[i].data);
 writeln('Pol: ');readln(s[i].pol);
 write('fizika - ');read(s[i].fiz);
 write('math - ');read(s[i].mat);
 write('informatika - ');read(s[i].inf);
 writeln('Stipendya: ');readln(s[i].stip);
 end;
 k:=0;
 for i:=1 to n do
 begin
 if 2011-s[i].data<=16 then
   begin
     k:=k+1;
     writeln(s[i].grup,' ',s[i].fio,' ',s[i].data);
     writeln(s[i].fiz,' ',s[i].mat,' ',s[i].inf,' ',s[i].stip);
   end;
 end;
 if (k>0) then
 writeln('kolichestvo= ',k)
 else
 writeln ('students not found');
 readln
 end.

[Sangreal]

Спасибо вам большое))