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

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

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

program u17z8;
var a,b: string;
    i,j,n: integer;
    q: boolean;
begin
  writeln('vvedite stroku a:');
  readln(a);
  writeln('vvedite stroku b:');
  readln(b);
  if length(a)<>length(b) then
    writeln('No')
  else
  begin
  for i:=1 to length(a) do
  begin
   for j:=1 to length(b) do
   begin
     if a[i]=b[j] then
     begin
       q:=true;
       break;
     end
     else
       q:=false;
    end;
    if q=false then
      break;
   end;
  if q then
    writeln('Yes')
  else
   writeln('No');
  end;
readln;
end.