Решить по информатике, в паскале ​

INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
    IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
    t$ = MID$(s$, i, 1)
    f$(j) = f$(j) + t$
    IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
    FOR j = 1 TO n
        IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
            P$ = f$(i)
            f$(i) = f$(j)
            f$(j) = P$
        END IF
    NEXT j
NEXT i
FOR i = 1 TO n
    PRINT f$(i);
NEXT i

Program Yxl;
uses crt;
const n=15;
var
  mass:array [1..n+2] of integer;
  i,j,temp:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('*** OK ***');
  writeln(); writeln();
  writeln('Программа упорядочивает массив по возрастанию ');
  writeln('и вставляет числа -2 и 5, не нарушая упорядоченности.');
{Создаём массив}
  randomize;
  writeln('Начальный массив: ');
  for i:=1 to n do
    begin
      mass[i]:=random(100)-50;
      write(mass[i]:4,' ');
    end;
{Сортируем массив}
  for i:=1 to n-1 do 
    for j:=i+1 to n do
      if mass[i]>mass[j] then 
        begin
            temp:=mass[i]; 
            mass[i]:=mass[j]; 
            mass[j]:=temp;
        end;
  writeln;
  writeln('Отсортированный массив: ');
  for i:=1 to n do
    begin
      write(mass[i]:4,' ');
    end;
{Добавляем к массиву числа -2 и 5 и сортируем полученный массив}
  mass[n+1]:=-2; mass[n+2]:=5;
  for i:=1 to n+1 do 
    for j:=i+1 to n+2 do
      if mass[i]>mass[j] then 
        begin
          temp:=mass[i]; 
          mass[i]:=mass[j]; 
          mass[j]:=temp;
        end;
{Выводим итоговый массив}
  writeln('Упорядоченный массив: ');
  for i:=1 to n+2 do 
    write(mass[i]:4,' ');
end.