задача на строки

[sc0pus]

Добрый день. У меня проблема с такой программой: "Пусть даны две строки str1 и str2. Выясните, можно ли из str1 путём перстановки литер получить str2." Вот код.

program strok;
var str1, str2:string[10];
k,i,j:integer;
begin
writeln ('vvedite str1');
readln (str1);
writeln ('vvedite str2');
readln (str2);
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
if (str1[i]=str2[j]) then k:=k+1;
if (str1[i]=str2[j]) then break;
end;
if (k=10) then write ('stroki sostoyat iz odinakovih simvolov')
else write ('stroki imeyut raznie simvoli');
readln;
end.

В принципе работает, но если первая строка "1111", а вторая "1234" например, то выведет что строки состоят из одинаковых символов. Почему так происходит я понимаю, но как исправить... в голову не приходит)

[BDA]

uses
  crt;

var
  a, b: array[0..255] of integer;
  s1, s2: string;
  i: integer;
  t: boolean;

begin
  t := true;
  for i := 0 to 255 do
  begin
    a[i] := 0;
    b[i] := 0;
  end;
  writeln('Input 2 strings:');
  readln(s1);
  readln(s2);
  if length(s1) <> length(s2) then
    t := false
  else
  begin
    for i := 1 to length(s1) do
    begin
      inc(a[ord(s1[i])]);
      inc(b[ord(s2[i])]);
    end;
    for i := 0 to 255 do
      if a[i] <> b[i] then
      begin
        t := false;
        break;
      end;
  end;
  if t then
    writeln('Possible')
  else
    writeln('Impossible');
end.

[sc0pus]

Огромное спасибо!

[sc0pus]

Сообщение от BDA

    begin
      inc(a[ord(s1[i])]);
      inc(b[ord(s2[i])]);
    end;

не совсем понимаю, что сдесь делается?

[BDA]

Разберем операцию:
inc(a[ord(s1[i])]);
s1 - 1 строка
s1[i] - i-й символ строки
ord(s[i]) - код i-го символа строки
a - массив используемых в s1 символов
a[ord(s[i])] - соответствующая позиция в массиве

Коротко - подсчитываем количество вхождений каждого символа в строку.