чтение чисел из файла..., начинаю изучать файлы Опции

[compiler]

Добрый день!
надо написать программу выполняющую чтение из текстового файла целых чисел и вывод на печать только четных чисел. собственно вот...

Var
    f : text;
    Put : string;
    a : integer;
Begin
    Put := 'D:\-stas\del\fi1.txt'; 
    assign(f, Put); 
    reset(f); 
    while not Eof(f) do
        begin
            readln(f, a);
            if not odd(a) 
               then
                   writeln(a);
      end;
    close(f);
    readln
End.

теперь хотелось бы внести не большие изменения
1) можно ли вместо Полного пути к файлу использовать путь из текущей деректории?
2) можно ли обрабатывать не только первые числа в строке, а все...
по идее должно быть как-то так..

...
while not Eof(f) do
        begin
		while not eoln do
			begin
				readln(f, a);
				if not odd(a) 
					then
					writeln(a);
			 end;
      end;
...

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

Сообщение отредактировано: compiler - 12.05.2007 23:16