Delphi заготовки

Задача выясните, можно ли из Строки1  путём перестановки букв получить строка 2


uses
  crt;
 
{ Процедура возвращает True если из строки ValueText1 может получиться ValueText2}
Function GetRelocationText(ValueText1,ValueText2:string):boolean;
var
  Sliter1, Sliter2: array[0..255] of integer;
  x: integer;{ цикл по строкам}
  t_res: boolean;
begin
  t_res := true;
  { обнуляем массив значений}
  for x := 0 to 255 do  begin    Sliter1[x] := 0;    Sliter2[x] := 0;  end;
  if length(ValueText1) <> length(ValueText2) then  t_res := false { если размер строк разный  }
  else
  begin
    for x := 1 to length(ValueText1) do
    begin
      inc(Sliter1[ord(ValueText1[x])]);
      inc(Sliter2[ord(ValueText2[x])]);
    ... Читать дальше »