Число Е - задача

[Fanyuus]

Выведите в выходной файл округленное до n знаков после десятичной точки число E. Число Е, округленное до 25 знаков после десятичной точки, равно 2.7182818284590452353602875.

Входные данные
Входной файл INPUT.TXT содержит целое число n (0 ≤ n ≤ 25).

Выходные данные
В выходной файл OUTPUT.TXT выведите ответ на задачу.

примеры:
если n = 0, то е=3,
если n = 2, то е=2,72.



пожалуйста, при решении, напишите комментарий что к чему и зачем к основным действиям.

[NetSpace]

const e='2.7182818284590452353602875';
var n,i,j,k:Integer;
      str,st:string;
      F:File;
begin
    //------ чтение из файла делайте сами
    .....
    //-------------------
    WriteLn('n=',n);
    j:=2+n;//номер позиции запятой+нужное количество символов после неё
    str:='';
    str:=Copy(e,1,j-1);//это неприкасаемая часть числа e
    //---------------а эту будем изменять
    st:=Copy(e,j+1,1);
    i:=StrToInt(st);//превращаем (N+1)-й символ в число, которое будем проверять
    st:=Copy(e,j,1);
    k:=StrToInt(st);//а вот это число, стоящее на N-й позиции и будем округлять.
    if(i<5)then k:=k;//ну, то есть оствляем как есть
    if(5<=i)then k:=k+1;
    str:=str+IntToStr(k);//формируем округленную стоку
    //-------------- запись в файл
    AssignFile(F,'OUTPUT.TXT');
    Rewrite(F,1);
    for i:=1 to Length(str) do
    begin
       Seek(F,1);//ставим на нужную позицию
       BlockWrite(F,str[i],1);//всю строку посимвольно записываем в файл
    end;
    CloseFile(F);
end;

ну, или попробуйте найти функцию округления типа, FloatToStr....

вот чтение из файла:

var c:Char;

    AssignFile(F,'INPUT.TXT');
    Reset(F,1);
    for i:=1 to FileSize(F)-1 do
    begin
       Seek(F,1);//ставим на нужную позицию
       BlockWrite(F,c,1);//посимвольно считываем всю запись из файла
       str:=str+c;
    end;
    CloseFile(F);

[Fanyuus]

большое спасибо!
завтра проверю