Дан массив из слов A(m). Найти все слова с длиной, не превышающей заданной. Паскаль.

var

 a: array of string[30];

 i, flag, m: integer;

begin

 write('Кол-во слов: ');

 readln(m);

 writeln;

 setlength(a, m);

 for i := 0 to m - 1 do

   readln(a[i]);

 writeln;

 write('Максимальное кол-во символов: ');

 readln(flag);

 writeln;

 for i := 0 to m - 1 do

   if length(a[i]) <= flag then

     writeln(a[i])

end.