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

[Siluet]

дан текстовый файл,содержащий цифры.получить удвоенное значение данного числа,вывести на экран

program pro;
uses crt;
var f:text;
    c,st,st1:string;
    q,ch,code:integer;

begin
     assign(f,'text1.txt');
     reset(f);
      while not eof(f) do begin
      read(f,st);
      repeat
      c:=copy(st,1,pos(' ',st));
      val(c,ch,code);
      q:=ch*2;
      delete(st,1,pos(' ',st));
      write(q,' ');
      until st='';end;
      close(f);
      end.

не могу понять в чем ошибка..
выводит нули..

[Alex Cones]

цифры.получить удвоенное значение данного числа

Так одно или два? Приведите пример файла.

P.S. Никогда не врубайте crt, если не собираетесь его использовать.

[sheka]

что - то не понятно, в файле цифры, а найти "удвоенное значение данного числа". какого числа?
или каждой цифры?

[Siluet]

удвоенное значение каждого числа.. сори..
пример
наш файл 2 3 4 5 6 7
вывести на экран 4 6 8 10 12 14

[sheka]

program pro;
uses crt;
var f:text;
    q:integer;

begin 
     clrscr;
     assign(f,'text1.txt');
     reset(f);
      while not eof(f) do begin
        while not eoln(f) do begin
          read(f,q);
          write(q*q,' ');
        end;
      readln(f);
      writeln;
      end;
      close(f);
end.

Так должно работать для почти любого входного файла.

[Siluet]

спасибо ))