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

[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

[klem4]

Я не понимаю что тебе опять не понравилось ...

во первых

Да, но мы ж читаем стринг из файла, а там находится последовательность чисел,

Файл у тебя описан как текстовый, соответственно состоит из СТРОК. Читаешь строку и применяешь к ней то, что написано Volvo. Результатом будет новая строка, в которой 0 заменен 9, 1 на 0, 2 на 1 и т.д.