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

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.

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.