Дан файл целых чисел, найти ошибку в программе

@Gidropon · Регистрация: 28.02.2013

Author24 — интернет-сервис помощи студентам

Задача:Дан файл целых чисел. Создать новый файл,содержащий те же
элементы,что и исходный файл, но в обратном порядке, использовать процедуры и функции

Несколько проблем:
1. Консоль закрывается, readln не помогает
2. Выскакивает exitcode = 5

Pascal

program xxx;
 
 
type
 
  fileType=file of integer;
 
var
    f,f1:fileType;
  s:integer;
    x:string;
 
procedure VvodStroki(var f:fileType);
var i:integer;
begin
    assign(f,'f.txt');
    rewrite(f);
    write('Vvedite Celie Chisla: ');
    readln(x);
    for i:=1 to length(x) do
      begin
            val(x[i],s);
            write(f,s);
    end;
    close(f);
end;
 
procedure Vivod1Stroki(var f:fileType);
var i:integer;
begin
    filemode := 0;
    assign(f,'f.txt');
    reset(f);
    while not eof(f) do
        begin
            read(f,s);
            write(s);
        end;
    close(f);
end;
 
procedure Vivod2Stroki(var f1:fileType);
var i:integer;
begin
    assign(f1,'f1.txt');
    reset(f1);
    while not eof(f1) do
        begin
            read(f1,s);
            write(s);
        end;
    close(f1);
end;
 
procedure StrokaObratka(var f,f1:fileType);
var i:integer;
begin
    filemode := 0;
    assign(f,'f1.txt');
    reset(f);
    filemode := 0;
    assign(f1,'f1.txt');
    rewrite(f1);
    reset(f1);
    for i:=length(x) downto 1 do
        begin
            read(f,s);
            write(f1,s);
        end;
        close(f);
        close(f1);
    end;
 
begin
    VvodStroki(f);
    Vivod1Stroki(f);
    StrokaObratka(f,f1);
    Vivod2Stroki(f1);
    readln();
end.

Добавлено через 27 минут
Хочу добавить что
VvodStroki - вводим строку
Vivod1Stroki - выводим строку из первого файла
Vivod2Stroki - выводим строку из второго файла
StrokaObratka - запись во второй файл 1 строки, но в обратном порядке

Добавлено через 15 часов 48 минут
кому интересно:

Pascal

program xxx;
 
 
type
 
  fileType=file of integer;
 
var
    f,f1:fileType;
  s:array [1..200] of integer;
    x:string;
 
procedure VvodStroki(var f:fileType);
var i:integer;
begin
    assign(f,'f.txt');
    rewrite(f);
    write('Vvedite Celie Chisla: ');
    readln(x);
    for i:=1 to length(x) do
      begin
            s[i] := ord(x[i]) - 48;
            write(f,s[i]);
    end;
    close(f);
end;
 
procedure StrokaObratka(var f,f1:fileType);
var i:integer;
begin
    reset(f);
    i:=1;
    while not eof(f) do
        begin
            read(f,s[i]);
            inc(i);
        end;
    assign(f1,'f1.txt');
    rewrite(f1);
    for i:=length(x) downto 1 do
        begin
            write(f1,s[i]);
        end;
        close(f);
        close(f1);
    end;
 
procedure Vivod2Stroki(var f1:fileType);
var i:integer;
begin
    reset(f1);
    i:=1;
    while not eof(f1) do
        begin
            read(f1,s[i]);
            write(s[i]);
            inc(i);
        end;
    close(f1);
end;
 
begin
    VvodStroki(f);
    StrokaObratka(f,f1);
    Vivod2Stroki(f1);
    readln();
end.

@Kitayets · 29.03.2013, 10:50

в процедуре StrokaObratka , читаешь и пишешь в один и тот же файл. По логике нужно в разные. Ошибка скорее всего записи в файл.

Запусти cmd.exe перейди в каталог с программой и запусти её - и прочитай что конкретно за ошибка.

Pascal

procedure StrokaObratka(var f,f1:fileType);
var i:integer;
begin
    filemode := 0;
    assign(f,'f1.txt');                 //<-  тут скорее  всего должно быть f.txt 
    reset(f);
    filemode := 0;
    assign(f1,'f1.txt');    
    rewrite(f1);
    reset(f1);
    for i:=length(x) downto 1 do
        begin
            read(f,s);
            write(f1,s);
        end;
        close(f);
        close(f1);
    end;

@Gidropon · 29.03.2013, 13:21 **[ТС]**

мой второй код работает

@Gidropon 77 / 77 / 52 Регистрация: 28.02.2013 Сообщений: 206 Записей в блоге: 9
	29.03.2013, 13:21 [ТС]	3
	мой второй код работает 0