работа с файлами (Pascal)

[makc101]

Вот задание:Дан файл целых чисел. Преобразовать его, удалив нечетные числа. Порядок следования четных чисел сохранить.
Вот прога, но она не работает:

program file;
procedure Input(s:string);
var f:file of word;
    k, i, l:word;
begin
writeln('vvedite kolichestvo komponentov');
readln(k);
assign(f,s);
rewrite(f);
for i:=1 to k do
 begin
 read(l);
 write(f,l);
 end;
close(f);
end;
procedure Change(s:string);
var f:file of word;
    l, i, k:word;
begin
assign(f,s);
reset(f);
i:=0;
k:=0;
while not Dof (f) do
 begin
 read(f,l);
 inc(i);
 if(l mod 2)=0 then
      begin
      seek(f,k);
      write(f,k);
      k:=k+1;
      seek(f,i);
      end;
 end;
seek(f,k);
truncate(f);
close(f);
end;
procedure Output(s:string);
var f:file of word;
    l:word;
begin
assign(f,s);
reset(f);
while not EOF do
 begin
 read(f,l);
 writeln('l');
 end;
end;
var s:string;
Begin
write('s');
readln(s);
Input(s);
Change(s);
Output(s);
End.

[Veselyn]

что именно не работает?

[makc101]

Не выводит данные,но файл создается

[FaTaL]

Если в паскале есть класс TStringList или TStrings, то удобнее и легче использовать его.
Увы нет под рукой паскаля.

[Serge_Bliznykov]

Если в паскале есть класс TStringList или TStrings,

нет такого в Turbo Pascal

___________________________________

makc101

1) НИКОГДА НЕ НАЗЫВАЙТЕ ПРОГРАММУ FILE (и не используете имён переменный, функций и процедур, совпадающих с ключевыми словами. В лучшем случае, получите ошибку при компиляции, в худшем - глюки при работе!!!!

2) похоже, выложенный код вообще НЕ компилируется!

3) идея программы правильная, но было несколько критических ошибок!
исправил!

4) при публикации кода на форуме используете кнопочку # (это обрамление кода тэгами [СODE] .. [/CODE]

вот рабочее решение:

procedure Input(s: string);
var f: file of word;
  k, i, l: word;
begin
  writeln('vvedite kolichestvo komponentov');
  readln(k);
  assign(f, s);
  rewrite(f);
  for i := 1 to k do
  begin
    read(l);
    write(f, l);
  end;
  close(f);
end;

procedure Change(s: string);
var f: file of word;
  l, i, k: word;
begin
  assign(f, s);
  reset(f);
  i := 0;
  k := 0;
  while not Eof(f) do
  begin
    read(f, l);
    inc(i);
    if (l mod 2) = 0 then
    begin
      seek(f, k);
      write(f, l);
      k := k + 1;
      seek(f, i);
    end;
  end;
  seek(f, k);
  truncate(f);
  close(f);
end;

procedure Output(s: string);
var f: file of word;
  l: word;
begin
  assign(f, s);
  reset(f);
  while not EOF(f) do
  begin
    read(f, l);
    writeln(l);
  end;
  close(f);
end;

var s: string;
begin
  write('Vvedite ima faila: ');
  readln(s);
  Input(s);
  Change(s);
  Output(s);
end.

p.s. в процедурах Change и Output можно было крутить цикл не до EOF(f)
а банально FOR по количеcтву записей в файле
(для типизированных файлов size(f) возвращает сколько записей в файле!)

[makc101]

Спасибо! В следующий раз учту.