Задача 8 Урок 16

Задача 8 Урок 16:

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

• ?

  1

  abc и bca

  -- можно

• ?

  1

  abc и baa

  -- нельзя

• ?

  1	abcc и cbac

  -- можно

• ?

  1	abc4c и cb55ac

  -- нельзя

var i, j, l1, l2: integer;
    m, n: string;
begin
   write('Введите строку 1: ');
   readln(m);
   writeln();
   write('Введите строку 2: ');
   readln(n);
   writeln();
   l1 := length(m);
   l2 := length(n);
   if l1 <> l2 then writeln('Строки разной длины')
   else
    begin
     for i := 1 to l1 do
      for j := 1 to l2 do
       if m[i] = n[j] then
        begin
         m[i] := '0';
         n[j] := '0';
         break;
        end;
     if m = n then writeln('Из строки 1 можно получить строку 2')
     else writeln('Из строки 1 нельзя получить строку 2');
    end;
   readln();
end.