Составить программу, проверяющую, можно ли получить запись числа А путем стирания цифр из числа В

function search(a,b:string):boolean;
var   i,k : integer;
begin
//******************************
     for i:= 1 to length(a) do
     begin
          k:=pos(a[i],b);
          delete(b,1,k);
          if k = 0 then
          begin
               search:=false;
               break;
          end
          else
             search:=true;
     end;
end;
var
   a,b :string;
begin
     write('a= '); readln(a);
     write('b= '); readln(b);
if length(b) < length(a) then
     writeln('NO!')
else
     if search(a,b) then writeln('Yes') else writeln('NO');
end.

 
write('b= '); readln(b);    
write('a= '); readln(a);

type
    mas = array [1..5] of byte;
//****************************************************
function VD(n:integer; var a :mas):byte;
var k : integer;
begin
     k := 0;
     while n > 0 do
     begin
          k:= k + 1;
          a[k]:= n mod 10;
          n:= n div 10
     end;
     VD:=k;
end;
//****************************************************
function search(a,b:mas; k2,k1:byte):boolean;
var   i,j,k : integer;
begin
     for i:= 1 to k2 do
     begin
          k:=0;
          for j:= k+1 to k1 do
          begin
               if b[j] = a[i] then
               begin
                    k:= j;
                    break;
               end;
          end;
          if k = 0 then
          begin
               search:=false;
               break;
          end
          else
             search:=true;
     end;
end;
//****************************************************
var
    a,b :mas;
    a1,b1 :word;
    k1,k2 :byte;
begin
     write('b= '); readln(b1);
      write('a= '); readln(a1);
       k1:= VD(b1,b);
        k2:= VD(a1,a);
if k1 < k2 then
     writeln('NO!')
else
     if search(a,b,k2,k1) then writeln('Yes') else writeln('NO');
end.