lúc chạy thử thì bạn nên sửa code thành for i:=1 to số nào be bé thôi để khi nhập dữ liệu vô file dulieu.data nó đỡ bị mệt =))))
var f,g: text;
a: array[1..100] of byte;
k,cs,i:byte;
begin
assign(f,'Dulieu.data'); reset(f);
assign(g,'Ketqua.txt'); rewrite(g);
for i:=1 to 100 do
read(f,a[i]);
readln;
read(f,k);
for i:=1 to 100 do
if a[i]=k then cs:=cs+1;
write(g,cs);
close(f);
close(g);
end.