файлы в паскале

[zenid]

помогите пожалуйста решить,просто не понимаю как делать, а сдавать уже завтра.

Дан файл вещественных чисел. Заменить в нем все отрицательные числа на их квадраты.

[Hacker19_90]

ну как?
читаешь все числа из файла в массив!
потом проходишь по массиву и проверяешь если число отрицательное, то возводишь в квадрат!
После этого свой файл Rewrite и записываешь туда свой массив

[zenid]

а можете набросить основной код задачки?

[Hacker19_90]

Assign(f, 'input.dat');
Reset (f)
i := 1;
while not(Eof(f)) do
    Read (f, mas[i]);
Close(f);

Это для чтения
Обработать массив сам думаю сможешь
ну а запись тоже самое ток
Rewrite(f) и Write(f, mas[i])

[zenid]

благодарю, очень помогли!

[Serge_Bliznykov]

Hacker19_90
просто для информации. чем хороши типизированные файлы - это то, что это файлы ПРЯМОГО доступа.
поэтому решение задачи может выглядеть (полностью) так:

var a : real;
  i : integer;
  f : file of real;
begin
  Assign(f, 'inpu$t.dat');
  Reset (f);
  i := 0;
  while not(Eof(f)) do begin
    Read (f, a);
    if a<0 then begin
      seek(f,i);
      a := a * a;
      Write(f, a);
    end;
    inc(i);
  end;
  Close(f);
end.

[zenid]

спасибо большое