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

[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;

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

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

[мисс_граффити]

но в файле же они записаны как обычные строки?
то есть ты должна считать строку, разбить на слова-записи, а потом анализировать?
(это и должен делать написанный кусочек?)
я думаю, тебе имеет смысл создать array[1..m] of w, и туда записать все слова-записи. а потом идти в цикле по массиву и смотреть, нужной ли длины слово (это если ты по каким-то причинам не хочешь его выводить сразу после разбиения, как в приведенном фрагменте).

[gin]

но в файле же они записаны как обычные строки?
то есть ты должна считать строку, разбить на слова-записи, а потом анализировать?
(это и должен делать написанный кусочек?)
я думаю, тебе имеет смысл создать array[1..m] of w, и туда записать все слова-записи. а потом идти в цикле по массиву и смотреть, нужной ли длины слово (это если ты по каким-то причинам не хочешь его выводить сразу после разбиения, как в приведенном фрагменте).

так надо по условию

[volvo]

gin, ну начала же почти правильно... Почему остановилась?

program words;

const
  n = 29;
  letters = ['a'..'z', 'A'..'Z'];

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

  i: integer;
  c: char;
  dat: text;

begin

  assign(dat, 'dat.txt'); reset(dat);
  while not eof(dat) do begin

    read(dat, c);
    if c in letters then begin
      w.i := w.i + 1;
      w.r[w.i] := c;
    end
    else begin
      if (w.i = 5) or (w.r[1] = w.r[w.i]) then begin
        for i := 1 to w.i do write(w.r[i]);
        writeln;
      end;
      w.i := 0;
    end;

  end;
  close(dat);

end.