Viết chương trình nhập vào một câu và kí tự K . xét xem K có trong câu hay không.Nếu có cho biết vị trí của nó GIÚP MÌNH VỚI Ạ

program timk;

uses crt;

var st:string;

      k:char;

      i:byte;

begin

     clrscr;

     write('Nhap xau: ');   readln(st);

     write('Nhap ki tu k: ');   readln(k);

     if pos(k,st)=0 then write('Khong co')

     else

          begin

               write('Vi tri xuat hien cua k trong xau la: ');

               for i:=1 to length(st) do

                    if st[i]=k then write(i,' ');

          end;

     readln;

end.

program xuathien;

uses crt;

var s:string;

      k:char;

      i:byte;

begin

     clrscr;

     write('Nhap xau: ');   readln(s);

     write('Nhap ki tu k: ');   readln(k);

     if pos(k,s)=0 then write('Khong co')

     else

          begin

               write('Vi tri xuat hien cua k trong xau la: ');

               for i:=1 to length(s) do

                    if s[i]=k then write(i,' ');

          end;

     readln;

end.