Dòng thứ 19 thay b[1] thành b[m]

*Phần tử đầu:

uses crt;
var i,n,d,k,kq:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('Nhap n,k: ');readln(n,k);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if k=a[i] then inc(d);
         if (k=a[i])and(d=1) then kq:=i; 
      end;
   if d<>0 then
      begin
         writeln('Phan tu dau: ',kq);
         writeln('So luong: ',d);
      end else writeln('Khong co');
readln
end.

*Phần tử cuối:

uses crt;
var i,n,d,k,kq:longint; a:array[1..1000]of longint;
begin
clrscr;
   write('Nhap n,k: ');readln(n,k);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         if k=a[i] then begin inc(d); kq:=i; end;
      end;
   if d<>0 then
      begin
         writeln('Phan tu cuoi: ',kq);
         writeln('So luong: ',d);
      end else writeln('Khong co');
readln
end.