Перевод задачи из C++ в паскаль. Работа с текстовыми файлами - Pascal ABC

#include <iostream>
#include <conio.h>
#include <fstream>
 
using namespace::std;
 
int main()
{
    char name[20];
    setlocale(0, "Russian");
    cout << "Введите название файла: ";
    cin >> name;
 
    ofstream file(name);
 
    cout << "Введите число n: ";
    int n = 0;
    do
    {
        cin >> n;
    } while (n>1000);
 
    for (int i(0); i < n; i++)
    {
        if (i % 2 != 0)
        {
            file.open(name, ios::app);
            file << i << endl;
            file.close();
        }
    }
 
    return 0;

}

Program P98;
var
f:text;
n:integer;
begin
Assign (f,'text.in');
Rewrite (f);
Writeln('Dati n = ');
  do begin
  Readln(f,n); 
  end;
    begin
    i:integer;
    while (n>1000);
    for i := 1 to n do
      begin 
      if (i div 2 <> 0)
        begin
        Writeln(f,i);
        Close(f);
    end;
      end;
        end;  
end.