Вывести на экран все слова, которые длиннее определенной заданной длины

const n=5;
type list = record;
          wrd : string;
     end;
var  mas:array[1..n] of list;
     i, j, len, key : byte;
     
BEGIN
     i:=0;
     repeat
           i:=i+1;
           Write('Введите ', i, ' слово: ');
                 ReadLn(mas[i].wrd);
     until n=i;
     WriteLn;
     // если в поле ввели строку, то оставляем только первое слово
     for i:=1 to n do
     begin
          for j:=1 to Length(mas[i].wrd) do
              if mas[i].wrd[j]=' ' then Delete(mas[i].wrd, j, Length(mas[i].wrd)-j);
     end;
 
     WriteLn('Исходный список слов:');
     for i:=1 to n do
         WriteLn(mas[i].wrd);
 
     Write('Задайте длину слова: ');
     ReadLn(len);
     WriteLn;
 
     WriteLn('Искомые слова:');
     for i:=1 to n do
          if Length(mas[i].wrd) > len then
          begin
               WriteLn(mas[i].wrd);
               Delete(mas[i].wrd, 1, Length(mas[i].wrd));
          end;
     WriteLn;
 
     key:=0;
     WriteLn('Новый список слов:');
     for i:=1 to n do
         if mas[i].wrd <> '' then
         begin
              WriteLn(mas[i].wrd);
              key:=1;
         end;
     if key=0 then WriteLn('Список пуст.')
END.