Функция, замена цифр из т.файла на предыдущую Опции

[Alex7]

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

Program Zamina(Lab11);
Uses crt;
Var  z: integer;
     a,fname,rad: string;
     f:text;
Function Zam(a:string):string;
 Var  i: byte;
 begin
  For i:=1 to length(a) do
    begin
        If a[i]='0' then a[i]:='9';
        If a[i]='1' then a[i]:='0';
        If a[i]='2' then a[i]:='1';
        If a[i]='3' then a[i]:='2';
        If a[i]='4' then a[i]:='3';
        If a[i]='5' then a[i]:='4';
        If a[i]='6' then a[i]:='5';
        If a[i]='7' then a[i]:='6';
        If a[i]='8' then a[i]:='7';
        If a[i]='9' then a[i]:='8';
    end;
 zam:=a;
 end;
Begin
 clrscr;
 Repeat
   z:=0;
   Writeln('‚ўҐ¤iвм i¬''п д ©«г'); readln(fname);
   assign(f,fname);
   {$I-}
   reset(f);
   {$I+}
   if ioresult<>0 then
      begin
         writeln('ЌҐЇа ўi«м­Ґ i¬''п. ” ©« ­Ґ §­ ©¤Ґ­®!');
         Inc(z);
      end;
 Until z=0;
 Writeln;
  Readln(f,rad);
  repeat
    begin
        a:=Copy(rad,1,pos(' ',rad)-1); delete(rad,1,pos(' ',rad));
        Write(a); gotoxy(15,wherey);Writeln(#26,' ',zam(a));
    end;
  until Z=length(rad);
 Readln;
End.

Сообщение отредактировано: Alex7 - 14.12.2005 8:49

[Alex7]

for i := 1 to length(s) do
     if s[i] in ['1'..'9'] then s[i] := chr(ord(s[i])-1) else s[i] := '9'; 

Да, но мы ж читаем стринг из файла, а там находится последовательность чисел, значит там есть между ними и пробелы! А по твоему условию они буду заменены на '9'.
Так не идет. Может так будет правильно?

for i := 1 to length(s) do
     if s[i] in ['1'..'9'] then s[i] := chr(ord(s[i])-1) else
      if s[i]<>#32 then s[i] := '9'; 

Так думаю это будет правильно, НО, опять таки же(это моя ошибка) я не указал что именно от меня требовали, а именно:

Код

Разработать ф-я, которая из заданого беззнакового числа формирует новое число путем замены цифр предыдущего на соответствующую меньшую.
Параметр ф-и- [u]число[/u], которое нужно заменить

Мне препод сказал, что нужно читать по числам, молв, что read это может делать без проблем, но разве можно ридать(читать) из текстового файла по цифрам, а не по строкам?

Сообщение отредактировано: Alex7 - 15.12.2005 19:46