С клавиатуры вводятся любые 16 букв русского алфавита, проверить можно ли из этих букв составить слово — Pascal(Паскаль)

uses crt;
var sub,st:string;
i:integer;
f:boolean;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 sub:='pascal';
 f:=true;
 for i:=1 to length(sub) do if pos(sub[i],st)>0 then delete(st,pos(sub[i],st),1) else
 begin
  f:=false;
  break;
 end;
 if f then write('Можно') else write('Нельзя');
 readln;
end.