Текст из файла в Паскале

[vedwnd9]

Здравствуйте!
Прошу помощи: Считать текст с файла и записать в другой файл только те слова, которые имеют парное к-во букв. Pascal. Вот наработки:

const rz=[' ',',','.','?','/',';',':'];
var f,g:text;
    s,s1:string;
    n,i,j,k:byte;
begin
assign(f,'input.txt');  // input fail
reset(f);
assign(g,'output.txt'); //output fail
rewrite(g);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=length(s);
  i:=1;
  while i<=n do
  if not(s[i] in rz)and((i=1)or(s[i-1] in rz)) then
   begin
    s1:=''; //probil
    j:=i;
    while(j<=n) and not(s[j] in rz) do
     begin
      s1:=s1+s[j];
      j:=j+1;
     end;
    if length(s) mod 2=0 then   //  переписать
     begin
      k:=1;
      writeln(g,s1);
     end;
    i:=i+length(s1);
   end
  else i:=i+1;
 end;
close(f);
if k=0 then write('???? ? ???????? @ ???',s1);
close(g);
write(' с знаком @ записано в output.txt')
end.

[s-andriano]

Парное - это четное?

[vedwnd9]

Сообщение от s-andriano

Парное - это четное?

Да, именно

[s-andriano]

Ну, собственно, т.к. текст Вашей программы читать невозможно, т.к. она вместо "CODE" заключена в "QUOTE", опишу на словах:
1. Открываете файл на ввод.
2. Открываете файл на вывод.
3. В цикле читаете строки из входного файла до его исчерпания.
4. Разбиваете строки на слова.
5. Слова с четной длиной записываете во второй файл (в условии не указано как, поэтому можно просто по одному слову в строке).
6. По окончании закрываете оба файла.

[vedwnd9]

Сообщение от s-andriano

3. В цикле читаете строки из входного файла до его исчерпания.
4. Разбиваете строки на слова.

Можете описать, как можна это сделать в коде?

[s-andriano]

Если Вы не знаете, как можно прочитать строку из файла, рекомендую почитать любой учебник по Паскалю или даже встроенную справку по функциям.
Разбиение строки на слова неоднократно обсуждалось на форуме. Вряд ли следует повторяться. Ищите.