t_13_24_a_v1_volkovich

procedure wrt(gr:group; sym:char);
     var i,j:integer;
     begin
         for i:=1 to 25 do
          if gr[i].surname[1]=sym then
     begin
            for j:=1 to 16 do write(gr[i].surname[j]);
            write(' ',gr[i].birthday.day,'.',gr[i].birthday.month,'.',gr[i].birthday.year);
            end;
     end;