Помогите чайнику!

Задача следующая: нужно прочесть из файла значение переменной, прибавить к ней введенное с клавы число, и перезаписать новое значение переменной обратно в файл.
Помогите, программисты!

Пожалуйста...
==============[ Резать тут ]==============
Var
F: Text;
A, B: Real; { Если нужны целые числа, то Real замени на Longint }
Begin
Assign(F, 'file'); { 'file' - это имя файла, откуда читать }
Reset(F);
Read(F, A);
Close(F);
WriteLn('Прочитано число: ', A: 0: 6);
Write('Введите число: ');
ReadLn(B);
A := A + B;
WriteLn('Результат сложения = ', A: 0: 6);
ReWrite(F);
Write(F, A: 0: 6);
Close(F)
End.
==================[ Конец ]==================
Если числа целые, то ': 0: 6' убрать во всех трех местах, иначе будет ошибка!!! Т.е., например, в последнем случае будет просто Write(F, A);