Создать массив слов строки и напечатать все слова, имеющие длину менее 3-х символов

uses crt;
var mas:array [1..100,1..100] of string;
s:string;
res,i,j:integer;
begin
read(s);
for i:=1 to length(s)-1 do
 begin
  if (s[i]<>' ') then
   begin
    if (j>2) and (s[i]<>' ') then begin end
    else if s[i]=' ' then j:=0;
    j:=j+1;
    mas[i,j]:=s[i];
    end
  else j:=0;
 end;
for i:=1 to 5 do
for j:=1 to 5 do
writeln(mas[i,j]);
end.

uses crt;
 
const nmax=100;
 
type m=array [1..nmax] of string;
 
var i:byte;
    s:string;
    p:integer;
    A:m;
 
{Ввод предложения}
Procedure vvodstroki(var st:string);
 
begin
Write('Введите предложение: ');
readln(st);
st:=st+concat(' ');
end;
 
{подсчёт кол-ва слов для ввода в массив}
Procedure kol_slov(st:string; var k:integer);
 
begin
 
k:=0;
repeat
for i:=1 to length(st) do
 if st[i] = ' ' then
  k:=k+1;
until k in [1..nmax];
 
 
end;
 
 
Begin
clrscr;
 
vvodstroki(s);
kol_slov(s,p);
 
{запись слов в массив}
for i:=1 to p  do
 begin
  A[i]:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
 end;
{вывод слов длиной менее 3-х символов}
writeln('Слова длинной менее 3-х символов: ');
for i:= 1 to p do
  if length(A[i]) < 3 then
   write(A[i],' ');
 
 
 
readkey;
end.