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

Формулировка задачи:

Была задача в C++
#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;
 
 
}
Задали переделать под Pascal, но вот как работать в Pascal-е с файлами я не знаю, вот мои чертежи, помогите кто и исправьте ошибку.
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.
Добавлено через 1 минуту Тут рус язык не нужен по-этому я обошелся без него.


textual

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

write('Введите имя файла без расширения  ');
readln(name);
name:=name+'.txt';//вот эту
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.375 из 5

Источник