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

Урок 17

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):
abc и bca
-- можно
abc и baa
-- нельзя
abcc и cbac
-- можно
abc4c и cb55ac
-- нельзя

var s1, s2: string;
    i, j, k, k1: integer;

begin
  s1 := '767';
  s2 := '776';
  k := 0;
  k1 := 0;
    for i := 1 to length(s1) do
    begin
      for j := 1 to length(s2) do
      begin
        if s1[j] = s1[i] then
          inc(k);
        if s2[j] = s1[i] then
          inc(k1);
      end;
      if (k <> k1) then
        break;
    end;
  writeln((k = k1) and (length(s1) = length(s2)));
  readln();
end.

КОНСОЛЬ

TRUE