Help - Работа с файлами Опции

[ursus]

Помогите решить!!!!!!!!!!!, please!!!!
Для зачета 1 осталась:
Число компонент файла f, компонентами которого являются целые числа кратно 10. Преписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы вначале шли отрицательные числа десятки, а за ними - неотрицательные

[Clon]

Тьфу, сорри, выложил по ошибке не то. Сейчас поправил

[Malice]

Тьфу, сорри, выложил по ошибке не то. Сейчас поправил

Все равно что-то не то, ни одного write(g,..) нет, как результат сохраняется ?
Я думаю вот такой основной блок надо:

nn:=0; reset(q); rewrite(w);
repeat
a:=0; s:=9;
for i:=0 to 9 do begin
read(q,k);
if k<0 then
begin seek(w,10*nn+a); write (w,k); inc(a); end
else
begin seek(w,10*nn+s); write (w,k); dec(s); end;
end;
inc(nn);
until eof(q);

Правда все положительные числа в обратном порядке встанут, ну и что, это не оговаривалось