Текстовый файл

[Rediska512]

Задание
Создать текстовый файл. Переписать в другой файл строчки длина которых больше 30 символов

я написал прогу, создание-вывод файла работает, вот только новый файл пустой помогите плз

program text_file;
uses crt;
var
   name:string;
   f:text;
   k:integer;
procedure stvor(var f:text);
 var x:char;
begin
 checkeof:=true;
 rewrite(f);
 writeln('Vvedit file,kinec ctrl+z');
 while not eof do
 begin
    read(x);
    write(f,x);
 end;
 close(f);
 reset(input);
end;

procedure vuvod(var f:text);
var y:char;
begin
 reset(f);
 while not eof(f) do
 begin
    read(f,y);
    write(y,'');
 end;
 close(f);
end;

procedure obrobka(var f:text; n:string);
var f1:text; a:char; s:string;
begin
   assign(f1,name);
   reset(f);
   rewrite(f1);
   s:='';
   while not eof(f) do
   begin
      while not eoln(f) do
      begin
        read(f,a);
        s:=concat(s,a);
      end;
      if length(s)>30 then write(f1,s);
      s:='';
   end;
   close(f);
   clrscr;
   close(f1);
   vuvod(f1);
end;

BEGIN
clrscr;
writeln('name file:');
readln(name);
writeln('Vvedit name drygogo file');
readln(name);
assign(f,name);
stvor(f);
writeln('Vu vveli fail:');
vuvod(f);
readln;
obrobka(f,name);
readln;
end.

только что увидел что намутил со связкой имени второго файла изменил и программа вообще не работала, помогите кто знает пожалуйста

[Stilet]

writeln('name file:');
readln(name);
writeln('Vvedit name drygogo file');
readln(name);

Да это ты лучше в разные переменки вводи

reset(f);
rewrite(f1);

Reset убери

И в конце программы ставь close() для закрытия обеих файлов, ато они могут кешироваться, и если не закроешь все твои потуги пропадут даром.

[Rediska512]

ну так я говорю когда вторую переменую для нейм сделал то программа вообще не работала -_-

[Serge_Bliznykov]

ну так я говорю когда вторую переменую для нейм сделал то программа вообще не работала -_-

во-первых, имена файлов ДОЛЖНЫ хранится в РАЗНЫХ переменных!
во-вторых, файловых переменных (раз уж вы одновременно с ними работаете) должно быть ТОЖЕ ДВЕ!

в-третьих, программа и процедуры написаны, на мой взгляд, КРАЙНЕ БЕЗАЛАБЕРНО!

проще переписать, чем исправлять ваше. вот, так, например:

program text_file;
uses crt;
var
  name1, name2 :string;

procedure stvor(const fname : string);
var 
  f:text;
  s:string;
begin
 assign(f, fname);
 rewrite(f);
 writeln('Vvedit file,konec PUSTAY stroka:');
 repeat
    readln(s);
    writeln(f,s);
 until s='';
 close(f);
end;

procedure vuvod(const fname : string);
var 
  f:text;
  y:char;
begin
 assign(f, fname);
 reset(f);
 while not eof(f) do
 begin
    read(f,y);
    write(y,'');
 end;
 close(f);
end;

procedure obrobka(const fname1, fname2 : string; StrLimit : integer);
var 
  f1,f2:text; 
  s:string;
begin
   assign(f1,fname1);
   reset(f1);
   assign(f2,fname2);
   rewrite(f2);
   while not eof(f1) do
   begin
     readln(f1,s);
     if length(s)>StrLimit then writeln(f2,s);
   end;
   close(f1);
   close(f2);
end;

BEGIN
  clrscr;
  writeln('name file:');
  readln(name1);
  writeln('Vvedit name drygogo file');
  readln(name2);
  stvor(name1);
  writeln('Vu vveli fail:');
  vuvod(name1);
  Writeln;
  Writeln;
  Write('Nazmite Enter dlya prodoljenia...');
  readln;
  obrobka(name1, name2, 30);
  writeln('Poluchennyj fail:');
  vuvod(name2);
  readln;
end.