Pascal. Решите пожалуйста задачу

Pascal. Решите пожалуйста задачу
Дан текст, в котором слова отделяются пробелами, в конце стоит точка. исключить из текста слова, длина которых меньше заданного числа.

  • примени эту программу , может быть поможет
    { Составьте программу, определяющую количесво и длину слов в предложение }
    program str1;
    uses crt;
    var
    i,j,k:integer;
    s:string;
    a:array[1..20] of string;
    n:array[1..20] of integer;
    begin
    clrscr;
    write('Введите предложение --> '); readln(s);
    s:=s+' ';
    k:=1;
    for i:=1 to length(s) do begin
    a [ k ]:=a [ k ]+s [ i ];
    if (S [ I ] =' ') then k:=k+1; end;
    writeln(k-1);
    for i:=1 to k-1 do begin write(a [ i ]);
    n [ i ]:= length(a [ i ])-1; writeln(n [ i ]); end;
    readln;
    end.