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

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

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

abc и bca
-- можно

abc и baa
-- нельзя

abcc и cbac
-- можно

abc4c и cb55ac
-- нельзя

program lesson16_8;

function compare(s1, s2: string): boolean;
var
    i, j: integer;
begin
    if length(s1) <> length(s2) then
    begin
        result := false;
        exit;
	end;

    for i := 1 to length(s1) do
    begin
        result := false;
        for j := 1 to length(s2) do
            if s1[i] = s2[j] then
            begin
                s2[j] := #0;
                result := true;
                break;
			end;
        if not result then
            exit;
	end;
end;

var
    s1, s2: string;
begin
    s1 := 'af@ b/cd';
    s2 := 'b dcaf/@';

    if compare(s1, s2) then
        writeln('yes')
    else
        writeln('no');
    readln();
end.