uses crt;
var i,j,k:integer;
mas:array[ 1 .. 10 ] of string; 
begin
writeln('Add text mas ');
readln(mas[ 1 ]); // первый текст
writeln('Add text mas2 ');
readln(mas[ 2 ]); // второй текст
j :=  0 ; // пока не искали
k :=  0 ; // пока без пропусков
for i:= 1  to length(mas[ 1 ]) do //длина mas[ 1 ]
 j:=j+ 1 ; // смотрим с очередного символа
 while j <= length(mas[ 2 ]) do // длина mas[ 2 ]
 begin
  if mas[i]=mas[j] then break; //если они равны то нашли символ
  k:=k+ 1 ; // учли пропуск
  j:=j+ 1 ; // перешли к следующей букве
 end;
 if j > length(mas[ 2 ]) then // mas[ 2 ] исчерпан? значит очередной символ не нашли
  writeln('Can''t convert mas to mas2 with delete only!') // выводим отказ
 else //если не равны то тут как получить второй текст из первого
  writeln('Can convert mas to mas2 with delete ', k,' chars') // можно, с удалением k символов
end.

uses crt;
var i,j,k:integer;
mas:array[ 1 .. 10 ] of string; 
begin
writeln('Add text mas ');
readln(mas[ 1 ]); // первый текст
writeln('Add text mas2 ');
readln(mas[ 2 ]); // второй текст
j :=  0 ; // пока не искали
k :=  0 ; // пока без пропусков
for i:= 1  to length(mas[ 1 ]) do //длина mas[ 1 ]
 j:=j+ 1 ; // смотрим с очередного символа
 while j <= length(mas[ 2 ]) do // длина mas[ 2 ]
 begin
  if mas[ 1 ][i]=mas[ 2 ][j] then break; //если они равны то нашли символ
  k:=k+ 1 ; // учли пропуск
  j:=j+ 1 ; // перешли к следующей букве
 end;
 if j > length(mas[ 2 ]) then // mas[ 2 ] исчерпан? значит очередной символ не нашли
 begin
  writeln('Can''t convert mas to mas2 with delete only!'); // выводим отказ
  exit
 end;
end;
writeln('Can convert mas to mas2 with delete ', k,' chars') // можно, с удалением k символов
end.

var i,j,k,l:integer;
mas:array[ 1 .. 2 ] of string; 
begin
writeln('Add text mas ');
readln(mas[ 1 ]); // первый текст
writeln('Add text mas2 ');
readln(mas[ 2 ]); // второй текст
j :=  0 ; // пока не искали
k :=  0 ; // пока без пропусков
l := length(mas[ 1 ]); // длина mas[ 1 ]

for i:= 1  to length(mas[ 2 ]) do //длина mas[ 2 ], как наименьшего текста
 j:=j+ 1 ; // смотрим с очередного символа в mas[ 1 ]
 while j <= l do
 begin
  if mas[ 2 ][i]=mas[ 1 ][j] then
   break; //если они равны, то нашли символ
  k:=k+ 1 ; // учли пропуск
  j:=j+ 1 ; // перешли к следующему символу
 end;
 if j > l then // mas[ 1 ] исчерпан? значит - очередной символ не нашли
 begin
  writeln('Can''t convert mas to mas2 with delete only!'); // выводим отказ
  exit
 end;
end;
writeln('Can convert mas to mas2 with delete ', k,' chars') // можно, с удалением k символов
end.