задача про координаты прямоугольника

[tata7393]

помогите пожалуйста решить!!!!)))очень срочно надо. в паскале.
задача такая:
Дан файл f, компоненты которого являются натуральными числами. количество чисел в файле кратно 4. первые два числа из каждой четверки задают положение на экране левого верхнего угла прямоугольника, следующие два числа - положение его правого нижнего угла. переписать в новый файл только координаты прямоугольников, расположенных в верхней половине экрана. размер экрана 1280 на 800 точек.
имя входного файла koord.txt
имя выходного - koord1.txt

[Serge_Bliznykov]

Дан файл f, компоненты которого являются натуральными числами

не очень корректно, обычно, когда говорят, что компоненты файла типа бла-бла-бла - имеется в виду типизированный (читай бинарный с заданной структурой) файл. Здесь же непонятно, то ли файл типизированный var f : file of integer
то ли файл обычный текстовый...
Решать Вам, Тата.

ну и ещё, язык программирования не указан.
И что у Вас вызывает сложности, тоже не указано.. Где Ваши наработки?

[Niro]

что вроде этого, за правильность не ручаюсь
(для типизированного файла)

var f, g: file of word;
     x1,y1,x2,y2: word;
begin
 связываем файловые переменные эф и жэ с их именами на жестком диске
 файл эф открываем на чтение
 файл жэ на запись
   ..........
  while not (eof (f) ) do
     begin
        read (f, x1);
        read (f, y1);
        read (f, x2);
        read (f, y2);
        if (x2<640) and (y2<400) then begin write (g, x1); write (g, y1); write (g, x2); write (g, y2); end;
     end;	
   закрываем файл жэ
end.

Serge, язык указан, в самом верху первого сообщения,
даже выделен жирным цветом)

[tata7393]

язык указан: паскаль!
файл текстовый, в нем содержатся натуральные числа. в файле их 4(т.е. 4 числа). это задача из контрольной, не я сама ее придумала.

[tata7393]

спасибо большое,Niro!!!))

[Serge_Bliznykov]

про язык я был не прав, проглядел, приношу свои извинения...