Заменить goto на процедуру - Pascal ABC

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

Доброе время суток. Подскажите пожалуйста, как заменить goto на процедуру. Код готовый, нужно только отредактировать, нашел тут на форуме похожий пример, но не совсем понял его. Заменять на if ... then... else?

program qqq;
uses crt;
label 1,2,3,4;
var a:string; i,j,n,max,k:integer; x,s:array[1..100] of string;
begin
clrscr;
readln(a);
readln(k);
i:=1;
n:=1;
for j:=1 to 100 do
begin
x[j]:=''; s[j]:='';
end;
while i<=length(a) do
begin
if a[1]=' ' then goto 3 else goto 2;
2:if (a[i]=' ') and (a[i+1]<>' ') then n:=n+1;
repeat
x[n]:=x[n]+a[i];
i:=i+1;
if a[i]=' ' then goto 2;
if i>length(a) then goto 4;
until a[i]<>' ';
3:repeat
if a[i]<>' ' then goto 2;
i:=i+1;
if i>length(a) then goto 4;
until a[i]=' ';
end;
4:for j:=1 to n do
for i:=1 to length(x[j]) do
if x[j][i]<>' ' then s[j]:=s[j]+x[j][i];
for i:=1 to n do
if length(s[i])<k then writeln(s[i]);
readkey;
end.

Решение задачи: «Заменить goto на процедуру»

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

program qqq;
uses crt;
var a,s:string;
    k,i,j,n:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(a);
write('Введите число К для поиска слов короче К k=');
readln(k);
writeln('Слова короче ',k,' символов');
n:=0;
i:=1;
while i<=length(a) do
if (a[i]<>' ')or((i=1)and(a[i-1]=' ')) then
 begin
  j:=i;
  s:='';
  while(j<=length(a))and(a[j]<>' ') do
   begin
    s:=s+a[j];
    j:=j+1;
   end;
  if length(s)<k then
   begin
    writeln(s);
    n:=1;
    end;
  i:=i+length(s);
 end
else i:=i+1;
if n=0 then write('Таких слов нет');
readkey;
end.

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

Программа объявлена как qqq.
Используется библиотека crt.
Переменные a и s объявлены как строки (тип string).
Переменные k, i, j, n объявлены как целые числа (тип integer).
С помощью функции clrscr() очищается экран.
Пользователю предлагается ввести строку из слов, разделенных пробелами.
Пользователю предлагается ввести число К для поиска слов короче К.
Выводится сообщение о том, какие слова будут найдены.
Переменная n инициализируется значением 0.
Переменная i инициализируется значением 1.
Запускается цикл while, который выполняется, пока i меньше или равно длине строки a.
Внутри цикла проверяется, является ли текущий символ в строке a непустым.
Если текущий символ в строке a не является пустым, то переменной j присваивается значение i+1.
Переменной s присваивается значение пустой строки (''').
Запускается вложенный цикл while, который выполняется, пока j меньше или равно длине строки a и текущий символ в строке a не является пустым.
Внутри вложенного цикла к переменной s добавляется текущий символ из строки a.
После окончания вложенного цикла переменная j увеличивается на 1.
Если длина строки s меньше или равна значению переменной k, то выводится строка s.
Если длина строки s меньше k, то переменная n инициализируется значением 1.
Цикл while завершается.
Если переменная n равна 0, то выводится сообщение о том, что таких слов нет.
Вызывается функция readkey(), чтобы пользователь мог нажать любую клавишу.