Подскажите алгоритм ( с чего начать написание программы , какие процедуры нужны)

[Pinguin007]

Дан файл f, компоненты U0,U1,…Un которого являются последовательными числами Фибоначчи. Получить в файле f последовательные числа Фибоначчи U0,U1,…,Un+1

пишу на делфи, ничего не получается, смог тока создать файл с числами Фибоначчи и стою на месте
Написал тока одну процедуру

procedure Create(name:string);
var
a,b,c,i,n: integer;
f:text;
begin
assign(f,name);
rewrite(f);
if ioresult=0 then
begin
write('n = '); // Числа Фибоначчи
readln(n);
a := 0;
write(a,' ');

Write (f, a);
b := 1;
write(b,' ');
Write (f, b);
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c;
write(f,b);
end;
readln;
end;
close(f);
end;

[Dvoishnik]

нефига не понял в задании. но смею предположить, что типа того надо что то.

 
.............
Reset(myFile);
seek(myFile,fileSize(myFile));
Read (f, b);
c := b;
b := a + b;
a := c;
write(f,b);
..............

[Serge_Bliznykov]

Сообщение от Dvoishnik

нефига не понял в задании. но смею предположить, что типа того надо что то.

ну с вашей идеей я полностью согласен.
а вот реализацию я бы написал примерно так:

Reset(myFile);
if FileSize(myFile)<2 then b:=1
else begin
  seek(myFile,FileSize(myFile)-2);
  Read(myFile, a);
  Read(myFile, b);
  b:=a+b
end;
seek(myFile,fileSize(myFile));
write(myFile, b);
CloseFile(myFile);

p.s. код писал в браузере и не проверял.
Идея, надеюсь, понятна.

[Pinguin007]

а что именно делает эта часть кода?

[min@y™]

Дан файл f, компоненты U0,U1,…Un которого являются последовательными числами Фибоначчи.

дай файл.