Текстовые данные. Дана строка. Можно ли из ее символов составить слово ПАСКАЛЬ

 var n:string;
 t1,t2,t3,t4,t5,t6,t7:boolean;
 pos1,pos2,pos3,pos4,pos5,pos6,pos7,i:longint;
begin
readln(n);
t1:=false;t2:=false;
t3:=false;t4:=false;
t5:=false;t6:=false;
t7:=false;
for i:= 1 to length(n) do begin
If n[i]='П' then begin t1:=true;pos1:=i;end;
If (n[i]='А') and (i>pos1) then begin t2:=true;pos2:=i;end;
If (n[i]='С') and (i>pos2) then begin t3:=true;pos3:=i;end;
If (n[i]='К') and (i>pos3) then begin t4:=true;pos4:=i;end;
If (n[i]='А') and (i>pos4) then begin t5:=true;pos5:=i;end;
If (n[i]='Л') and (i>pos5) then begin t6:=true;pos6:=i;end;
If (n[i]='Ь') and (i>pos6) then t7:=true;
end;
If (t1) and (t2) and (t3) and (t4) and (t5) and (t6) and (t7) then writeln('YES') else writeln('NO');
end.

var n:string;
 t1,t2,t3,t4,t5,t6,t7:boolean;
 pos1,pos2,pos3,pos4,pos5,pos6,i,k:longint;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
readln(n);
t1:=false;t2:=false;
t3:=false;t4:=false;
t5:=false;t6:=false;
t7:=false;
for i:= 1 to length(n) do begin
If n[i]='П' then begin t1:=true;pos1:=i;end;
If (n[i]='А') and (i>pos1) and (t2=false) then begin t2:=true;pos2:=i;end;
If (n[i]='С') and (i>pos2) then begin t3:=true;pos3:=i;end;
If (n[i]='К') and (i>pos3) then begin t4:=true;pos4:=i;end;
If (n[i]='А') and (i>pos4) and (pos2<>i) then begin t5:=true;pos5:=i;end;
If (n[i]='Л') and (i>pos5) then begin t6:=true;pos6:=i;end;
If (n[i]='Ь') and (i>pos6) then t7:=true;
end;
If (t1) and (t2) and (t3) and (t4) and (t5) and (t6) and (t7) then writeln('YES') else writeln('NO');
close(input);close(output);
end.