Преобразования строк

[Atheist92]

Задача :Даны две строки Str1 и Str2. Выясните, можно ли строку Str2 получить из строки Str1 вычеркиванием некоторых символов.

program Stroki;
uses crt;
var s,s1:string;
    d:array[0..255] of longint;
    i:longint;
begin
 readln(s);
 readln(s1);
 for i:=1 to length(s) do
  inc(d[ord(s[i])]);
 for i:=1 to length(s1) do
  begin
    dec(d[ord(s1[i])]);
      if d[ord(s1[i])]=-1 then begin write('NO');halt;end;
  end;
  write('YES');
end

не понимаю как сделать так что бы программа проверяла строку вычеркиванием символов.

[veniside]

например, посимвольным перебором. не очень эффективно, но работает:

var
  str1, str2: string;
  i, p: integer;
  ok: boolean;
begin
  readln(str1);
  readln(str2);
  p := 0;
  ok := true;
  for i := 1 to length(str2) do begin
    //
    inc(p);
    {$B-}
    while ( (p <= length(str1)) and (str2[i] <> str1[p]) ) do
      inc(p);
    //
    if (p > length(str1)) then begin
      //
      ok := false;
      break;
    end;
  end;
  //
  writeln('Conсlution: ', ok);
end;