Заданы два слова. Составьте программу, которая определит, можно ли вычеркиванием букв из первого слова получить второе -Pascal(Паскаль)

program f;

label 1;

var
  s1, s2, nc: string;
  i, j: integer;

begin
  write('Vvedite Pervoe slovo: ');
  readln(s1);
  write('Vvedite Vtoroe slovo: ');
  readln(s2);

  nc := s1;
1:
  for i := 1 to length(s1) do
    if s1[i] <> s2[i] then
    begin
      delete(s1, i, 1);
      goto 1;
    end;

  if s1 = s2 then
  begin
    writeln;
    writeln('Iz slova "', nc, '" mi polucili "', s2, '"!');
    writeln('Otvet: MOJNO!')
  end
  else
    writeln('Otvet: NELIZYA!');

  readln;

end.