Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом — Pascal(Паскаль)

uses crt;
const p:string='Паскаль';
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите текст:');
readln(s);
k:=0;
writeln('Порядковые номера символов, входящих в слово ',p);
for i:=1 to length(s) do
if pos(s[i],p)>0 then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких символов нет!');
readln
end.