задача на строки, здравствуйте, помогите с задачкой Опции

[gin]

Дан файл, в котором записана строка, состоящая из слов, разделенных пробелом. Слова даны в виде записи. Надо найти и распечатать все слова длиною в 5 символов и слова, начинающиеся и заканчивающиеся на одну и ту же букву.
с оычной строкой еще могу сделать, а с записью - никак.

сделала только это:

program words;
  type n = set of char;
  const n = 29;
        letters: n = ['a'..'z', 'A'..'Z'];
  var w: record
           r: array [1..n] of char;
           i: 0..n
         end;
      c: char;
      dat: text;
begin
  assign(dat, 'dat.txt'); reset(dat);
  while not eof(dat) do
    begin
      w.i := 0;
      read(dat, c);
      while c in letters do
        begin
          w.i := w.i + 1;
          w.r[w.i] := c;
          read(dat, c)
        end;
   if (w.i =5) then writeln (w.r);
   

помогите, пожалуйста.

[gin]

да нет, не типизированный. это чтобы сложнее было, слова еще представлены в виде записи:

 var w: record
             r: array [1..n] of char;
             i: 0..n
         end;

слово - массив символов+его длина.

вот с этим и проблема, теоретичесли вроде ясно, как найти слово опред. длины, а практически...увы.