Описать функцию f (x, y), которая проверяет, возможно переставив буквы в слове х получить слово y - Turbo Pascal

Формулировка задачи:

Описать функцию f (x, y), которая проверяет, возможно переставив буквы в слове х получить слово y.

Решение задачи: «Описать функцию f (x, y), которая проверяет, возможно переставив буквы в слове х получить слово y»

Листинг программы

uses crt;
function f(x,y:string):boolean;
var i:byte;
    t:boolean;
begin
clrscr;
if length(x)<>length(y) then t:=false
else
 begin
  while pos(x[1],y)>0 do
   begin
    delete(y,pos(x[1],y),1);
    delete(x,1,1);
   end;
  f:=x='';
 end;
end;
var s1,s2:string;
begin
writeln('Введите 2 строки');
readln(s1,s2);
if f(s1,s2) then write('Можно составить из одного слова другое')
else write('Нельзя составить из одного слова другое');
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая предоставляет функции для работы с консолью.
Затем определяется функция f, которая принимает два аргумента типа string - x и y. Функция возвращает значение типа boolean, указывающее на возможность перестановки букв в слове x, чтобы получить слово y.
Внутри функции объявлены две переменные - i и t. Переменная i используется как счетчик для цикла, а переменная t используется для хранения результата проверки условия.
Далее идет блок if-else, который проверяет, равны ли длины строк x и y. Если они не равны, то t устанавливается в false (ложь), иначе...
В блоке else начинается цикл while, который выполняется до тех пор, пока позиция первого символа строки x в строке y больше 0. На каждой итерации цикла символы в строке y удаляются из позиции, указанной символом в строке x, и из самой строки x. После выполнения цикла функция f устанавливается в true (истина), если все символы были удалены, иначе остается значение false.
В конце функции определены две переменные - s1 и s2 типа string, которые будут использоваться для ввода и вывода строк.
Затем идет блок чтения двух строк с помощью функции readln.
После этого вызывается функция f с аргументами s1 и s2. Результат проверки выводится на экран.
Конец программы.