Работа со строками и текстовыми файлами

[Jameses]

[I]Помогите написать. Необходимо заменить символ на символ в документе. Ну, естественно через pascal. Т.е. работа с файлами и текстом..


Вот мой код, но не робит(

Program Change;
uses crt;
Var S : String; f:text;
Begin
assign(f,'text.txt');
reset(f);
S:=' 123.5';
While Pos('a', S) > 0 Do S[Pos('a', S)]:='b';
WriteLn(S);
close(f);
End.

[Stilet]

шоККК...

Program Change;
uses crt;
Var S : String; f:text; 

function Replace(Where,Source,Dest:String):String;
var i:integer;
begin
 i:=pos(Source,Where);
 while i<>0 do begin
  delete(Where,i,Length(Source));
  insert(Where,Dest,i);
  i:=pos(Source,Where);
 end;
 Replace:=Where; 
end;
 
Begin
assign(f,'text.txt');
reset(f);
while not eof(f) do begin
 readln(f,s); 
 Writeln(Replace(s,'a',' 123.5'));
end;
close(f);
End.

[Аватар]

Ради шутки. Я на месте препода может и проявил бы такое (не хорошее слово), особенно если бы не с той ноги встал

Writeln(Replace(s,'a','a'));
или
Writeln(Replace(s,'a','ab'));

Ну и ТС - а вдруг и правда препод такая редиска?

[Stilet]

М.м.м... Не учел...
Ну да ладно, не мне сдавать...