Задание следующего плана: 1)Заполнить числами типизированный файл; 2)Считать эти цифры в...

Question

Задание следующего плана:
1)Заполнить числами типизированный файл;
2)Считать эти цифры в байтах;
3)Вывести эти цифры в другой файл.txt;
Вот код,который я написал,но не выводятся цифры.Прошу помочь)
program ex;
const N=200;
var a,i,x:integer;
f:file of integer;
f2:file ;
begin
Assign(f,'pervuy.txt');
Assign(f2,'vuxod2.txt');
Rewrite(f);
for i:=1 to N do
Write(f,i*5);
Close(f);
Reset(f);;
Rewrite(f2);
for i:=1 to N do
begin
Read(f,x);
a:=x;
Write(f2,a);
end;
end.

Answer 1

Program ex;
const
  N=200;
var
  i,x:integer;
  f:file of integer;
  f2:Text ;
begin
  Assign(f,'pervuy.txt');
  Assign(f2,'vuxod2.txt');
  Rewrite(f);
  for i:=1 to N do Write(f,i*5);
  Close(f); Reset(f);
  Rewrite(f2);
  for i:=1 to N do begin
    Read(f,x);
    Write(f2,x,' ');
    end;
  Close(f); Close(f2)
end.

Comments

Но если не закрыть файл f2,числа не выводят.Только что пробовал.

---

В чем запускали?

---

А здорово так, зайти, написать что-то - и уйти...

---

На компьютере.(Ну,я же не модератор,часто здесь не сижу :D)

---

Если Вы хотите свою какую-то проблему решить, нельзя спросить - и сбежать

---

Я понимаю, что на компьютере, а не на балалайке запускали. В какой программе?

---

В паскале,я видимо не указал.

---

В каком пакете? Как называется оболочка Паскаля? Что он там на внешней рамке окна пишет? Почему из Вас надо каждое слово тащить?

---

Скриншоты можно заливать на пикс или что-то подобное ? Я просто покажу

---

Нельзя. Ссылки запрещены. Можете ссылку на скрин мне в личку прислать