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

[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]

находишь группу цифр и делаешь с ней вот так :

uses crt;
var
   s : string;
   i : integer;
   temp : char;
begin
   clrscr;
   readln(s);
   for i := 1 to length(s) div 2 do begin
      temp := s[i];
      s[i] := s[length(s)-i+1];
      s[length(s)-i+1] := temp;
   end;
   writeln(s);

end.