запись

program zapisi;
uses crt;
label fs,sf;
type books=record y:integer;
fam:string;
god,kurs:integer;
pol,wid:string;
end;
var s:array[1..5] of books;
s3:array[1..5] of integer;
r,a,i,p,j,n,d:integer;
g,Y:char;
begin
WRITELN('Составить программу которая выводит данные');
WRITELN('(фмилия,год рождения,курс)о студентках спортсменах');readln;
clrscr;
gotoxy(2,2);
write(chr(218));
for p:=6 to 73 do begin
if (p=9) then write(chr(194));
if (p=34) then write(chr(194));
if (p=50) then write(chr(194));
if (p=55) then write(chr(194));
if (p=61) then write(chr(194));
write(chr(196));
end;
writeln(chr(191));
gotoxy(2,3);
writeln(chr(179));
if (p=60) then write(chr(194));
gotoxy(4,3);
write('№' );
gotoxy(6,3);
write(chr(179));
gotoxy(15,3);
write(' ФИО' );
gotoxy(32,3);
write(chr(179));
gotoxy(34,3);
write('год рождения ');
gotoxy(49,3);
write(chr(179));
gotoxy(51,3);
write('пол ');
gotoxy(55,3);
write(chr(179));
gotoxy(57,3);
write('курс ');
gotoxy(62,3);
write(chr(179));
gotoxy(64,3);
write('вид спорта*');
gotoxy(76,3);
write(chr(179));
j:=1;
writeln;
gotoxy(2,3+j);
write(chr(195));
for p:=7 to 74 do begin
if (p=10)or(p=35)or(p=51)or(p=56)or(p=62) then write(chr(197));
write(chr(196));
end;write(chr(180));
a:=1;
gotoxy(4,3+j);
j:=0;
for i:=1 to 3 do with s[i] do
begin
gotoxy(2,5+j);
write(chr(179),' ');
write(a);
a:=a+1;
gotoxy(6,5+j);
write(chr(179),' ');
readln(fam);
gotoxy(32,5+j);
write(chr(179),' ');
readln(s[i].god);
gotoxy(49,5+j);
write(chr(179),' ');
readln(pol);
gotoxy(55,5+j);
write(chr(179),' ');
readln(kurs);
s3[i]:=kurs;
gotoxy(62,5+j);
write(chr(179),' ');
readln(wid);
gotoxy(76,5+j);
write(chr(179),' ');
j:=j+1;
if i<=n then writeln;
if i=n then
end;
gotoxy(2,5+j);
write(chr(192));
for p:=7 to 74 do begin
if (p=10)or(p=35)or(p=51)or(p=56)or(p=62) then write(chr(193));
write(chr(196));
end;
writeln(chr(217));
readkey;
sf:gotoxy(2,6+j);
write('КУРС № ');
readln(d);
for i:=1 to 3 do with s[i] do
begin
if (pol='ж')and(kurs=d) then if wid='-' then goto fs else begin
gotoxy(8,8+j);
write(fam);
gotoxy(33,8+j);
write(' ',god);
gotoxy(50,8+j);
write(' ',pol);
gotoxy(56,8+j);
write(' ',kurs);
gotoxy(63,8+j);
writeln(' ',wid);r:=r+1;j:=j+1;writeln; end
else
if(pol='ж')and(kurs=d)then if wid='СПОРТ' then goto fs else begin
gotoxy(8,8+j);

write(fam);
gotoxy(33,8+j);
write(' ',god);
gotoxy(50,8+j);
write(' ',pol);
gotoxy(56,8+j);
write(' ',kurs);
gotoxy(63,8+j);
writeln(' ',wid);r:=r+1;j:=j+1;writeln; end;
fs:if i<=3 then
writeln;writeln;
end;
if r=0 then writeln('Таких студентов НЕТ');
write('Хотите повторить? Y\N ');
read(g);
if (g='Y')or( g='y') then goto sf;
readln;
readln;
end.

wid:string;

xxx777xxx, советую создать отдельный реестр для видов спорта. С цифрами поиск всегда проще организовать, чем с переменной
.