Вывести фамилии студентов второго курса

uses crt;
  type
       adres=record
       gorod:string[20];
       ylica:string[20];
       dom: byte;
       kvartira:byte;
       end;
  var
       n,i:integer;
       anketa:record
       fio:string[30];
       data:string[10];
       kyrs:1..5;
       a:adres;
       grupa:string[10];
       end;
  begin
       writeln('vvedite n  (kol-vo studentov) ');
       readln(n);
       for i:=1 to n do
       begin
       writeln('vvedite dannie studenta');
       write('vvadite fio: ');
       readln(anketa.fio);
       write('vvedite data: ');
       readln(anketa.data);
       write('vvedite kyrs: ');
       readln(anketa.kyrs);
       write('vvedite grupa: ');
       readln(anketa.grupa);
 
       write( 'vvedite adres');
       write('vvedite gorod: ');
       readln(anketa.a.gorod);
       write('vvedite dom: ');
       readln(anketa.a.dom);
       write('vvedite kvartira: ');
       readln(anketa.a.kvartira);
       if anketa.kyrs=2 then
       begin
 
       writeln('fio: ',i, anketa.fio);
       writeln('data: ', anketa.data);
       writeln('kyrs: ', anketa.kyrs);
       writeln('grupa: ', anketa.grupa);
       writeln('gorod: ', anketa.a.gorod);
       writeln('dom: ', anketa.a.dom);
       writeln('kvartira: ',anketa.a.kvartira);
       end;
       end;
       readln;
       end.