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

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

Проверить можно ли строки из m символов получить строку n.

var i, j, l1, l2: integer;
    m, n: string;
begin
   write('enter line 1 ');
  // readln(m);
   m:='afcbjg';
   writeln();
   write('enter line 2 ');
   // readln(n);
   n:='afcb5g';
   writeln();
   l1 := length(m);
   l2 := length(n);
   if l1 <> l2 then writeln('strings of different lengths')
   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('from 1 you can get 2')
     else writeln('You cant get 2 out of 1');
    end;
   readln();
end.         

Вывод консоли:

enter an arbitrary string
enter line 1
enter line 2
You cant get 2 out of 1