bai tap kieu du lieu ban ghi này

lập trương trình thực hiện công việc sau:
nhâp vao danh sach các sinh viên gồm các thông tin sau: họ tên ,giới tính, quê quán
sau đó thưc hiện:
- in danh sách vừa nhập;
- Đếm và in ra danh sách các sinh viên có quê quán ở thái nguyên.
( sử dụng bản ghi nhá các ban: record);
xin cam on!

uses crt;
type hs = record

hoten:string[30];
gioitinh:char;{nam la m,nu la f}
que;string[50];
end;
var lop:array[1..60] of hs;
n,i,dem:byte

BEGIN
write('nhap so hoc sinh:');
readln(n);
for i:=1 to n do
with lop[i] do

begin
writeln('thong tin hoc sinh thu ',i);
write('nhap ho va ten:');
readln(hoten);
write('nhap gioi tinh:');
readln(gioitinh);
write('nhap que quan:');
readln(que);
end;

clrscr;
{in toan bo}
for i:=1 to n do
begin
writeln('ban ',lop[i].hoten);
writeln('gioi tinh '.lop[i].gioitinh);
writeln('que o ',lop[i].que);
end;
dem:=0;
{in ra nhung ban o thai nguyen}
writeln('nhung ban o thai nguyen');
for i:=1 to n do

begin

if lop[i].que='thai nguyen' then

begin
dem:=dem+1;
writeln('ban ',lop[i].hoten);
writeln('gioi tinh '.lop[i].gioitinh);
end;
end;
writeln('tim thay ',dem,' ban o thai nguyen');
readln
end.

chc la khong mac loi nhieu dau

ban oi chay rui nhug tai sao khi in ra khong dc vay test ho minh di nha