Робота с файлами. Исправте код.

[aerosm]

Создать файл и записать в него числа из диапазона от а до б с шагом с , которые будут иметь непарные номера.(Delphi)
Как не исправляю , работать не хочет.

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
a,b,c,i,g:real;
begin
assignFile(f,(Edit1.Text));
Append(f);
a:=StrtoFloat(edit2.text);
b:=StrtoFloat(edit3.text);
c:=StrtoFloat(edit3.text);
i:=0;
while (i>a) and (i<b) do
begin
i:=i+c;
g:=i mod 2;
if g=1 then
write(f,i:3);
end;
closefile(f);

end;

[Serge_Bliznykov]

ну выглядит всё пристойно.

за исключением пары моментов.
1) а что это за G ?! Вы же его нигде не присваиваете и не изменяете!
Ну и для вещественных чисел в математике нет понятия чётное/нечётное (только для целых чисел)
предлагаю так:

var
  a,b,c,g:real;
  i : integer;
... 
i:=1;
g:=a;
while (g>=a) and (g<=b) do
begin
  g:=g+c;
  if (i mod 2) = 1 then write(f,g:7:2);
  inc(i);
end;

2)
Немного вызывает сомнение Append(f);
если не ошибаюсь, то при отсутствии файла будет ошибка.

Поэтому попробуйте так:

if FileExists(Edit1.Text) 
  then Append(f)
  else Rewrite(f);

ну и разумеется в Edit1.Text должно быть корректное имя файла. (можно с полным путём)
в edit2, edit3 - корректные величины A и B (причём а должно быть обязательно меньше B)

[aerosm]

Спасибо!) Очень помог!