Дан массив из слов Т(к) найти все слова содержащие заданное количество букв — Pascal(Паскаль)

uses crt;
var 
 t:array[1..100]of string;
f,i,n,k:integer;
begin
clrscr;
writeln('vvedite kol-vo slov');
readln(n);
writeln('vvedite kol-vo bukv v slove ');
readln(k);
for i:= 1 to n do
begin
write('vvedite slovo: ');
readln(t[i]);
end;
 
for i:= 1 to n do
if (length(t[i])=k) then
begin
write(t[i],' ');
f:=1;
end;
if f=0 then writeln('slov s takim chislom bukv net');
readln;
end.