задача на типизированные файлы, хелп Опции

[punkska]

задача:
Компоненты типизированого файла -целочисленные массивы, состоящие из 4 элементов. Сформировать новый типизированный фаил из четных элементов этих массивов, имеющих чётные индексы!

помогите решить!! а то ваще тупняк...

[volvo]

В-общем, работает так: читает очередную компоненту типизированного файла, проверяет, есть ли числа, удовлетворяющие условию, если есть - пишет их в новую строку текстового файла. Если нет - просто вставляет в текст. файл пустую строку...

Но файл с компонентами тебе придется создавать самому, ибо в условии сказано, что он уже существует...

type
  arrType = array[1 .. 4] of integer;
  fileType = file of arrType;

var
  f_in: fileType;
  f_out: text;
  X: arrType;
  i: integer;
begin
  assign(f_in, '_in.dat');
  reset(f_in);

  assign(f_out, '_out.txt');
  rewrite(f_out);

  while not eof(f_in) do begin
    read(f_in, X);
    for i := 1 to 4 do
      if (not odd(i)) and (not odd(X[i])) then
        write(f_out, X[i], ' ');
    writeln(f_out);
  end;

  close(f_out);
  close(f_in);
end.