Выводить слова и цифровое значение - Pascal ABC

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

Имеется программа которая должен вывести слово и значение. собственный алфавит юдин=1 2 3 4. например вывести обе значение слово и цифры, нид = 4 3 2 , слово ди= 3 2.

                    Листинг программы
                
 
                        
                          
                    
var abc: String;
function IsLess(const a, b: String): Boolean;
var i, j: Integer;
begin
  i:=1; j:=Length(a);
     if j>Length(b) then j:=Length(b);
       while (i<=j) and (a[i]=b[i]) do Inc(i);
        if i<=j then IsLess:=Pos(a[i],abc)<Pos(b[i],abc)
  else IsLess:=j>Length(a);
end;
 
var
  a: array [1..100] of String;
  t: String;
  i, j, n: Integer;
  mn:integer;
begin
Write('алфавит: ');
  ReadLn(abc);
  write('ведите кол-во слов : ');
   readln(n);
  Write('введите кол-во длины слова : ');
    ReadLn(mn);
  WriteLn('Строки:');
  for i:=1 to n do
 
   begin
    Write(i:2,'> ');
    ReadLn(a[i]);
    end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if IsLess(a[j],a[i]) then
     begin
      t:=a[i];
      a[i]:=a[j];
      a[j]:=t;
    end;
  WriteLn('Сортировка:');
  for i:=1 to n do
  WriteLn(i:2,'> ',a[i]);
end.

Заранее спасибо)

Решение задачи: «Выводить слова и цифровое значение»

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

WriteLn('Сортировка:');
for i:=1 to n do
 begin
  Write(i:2,'> ',a[i],' =');
  for j:=1 to length(a[i]) do
  write(pos(a[i][j],abc):3);
  writeln;
 end;

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

Строка кода WriteLn('Сортировка:'); выводит на экран текст Сортировка:.
Затем следует цикл for, который выполняется от 1 до n (предполагается, что n - это некоторое число).
Внутри цикла переменная i принимает значения от 1 до n, а переменная j принимает значения от 1 до длины элемента массива a[i].
Для каждого значения i и j выполняется следующий блок кода:
- Выводится значение i (с помощью функции Write(i:2,>), где 2 - это формат вывода числа с двумя знаками после запятой).
- Затем выводится знак > (символ >).
- После этого выводится значение a[i] (с помощью функции Write(a[i]:3)), где 3 - это формат вывода строки с тремя знаками после запятой.
- И, наконец, выводится символ =.
После завершения внутреннего цикла выводится символ writeln, который переносит строку.
Конец внешнего цикла не указан в предоставленном коде, поэтому он будет выполняться бесконечно, пока не будет прерван пользователем.