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

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

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

abc и bca

-- можно

abc4c и cb55ac

-- нельзя

var i, j: integer;
    m, n: string;
begin
  write('str1: ');
  readln(m);
  write('str2: ');
  readln(n);
  for i := 1 to length(m) do
    for j := 1 to length(n) do
      if (m[i] = n[j]) then
        begin
          m[i] := '0';
          n[j] := '0';
          break;
        end;
  if (m = n) then
    writeln('can')
  else
    writeln('not');
  readln();
end.