{ Заданы 2 слова a и b. Можно ли получить из слова a, вычеркивание некоторого кол-ва букв, слово b. }

uses crt;
var i,j,m,n : integer;
    a,b,d,e : string;
 begin
   clrscr;
write('введите текст a=');
readln(a);
write('введите текст b=');
readln(b);
n:=length(a);m:=length(b);
e:=b;
   if n