Pascal ABC

С помощью процедуры заменить максимальную цифру для пяти чисел на заданное число (можно для одного числа)

Procedure DigitReplace (Source, Replaced:integer; var Result:string) ;

var

SourceStr, ReplacedStr:string;

MaxDigit:char;

PosMax, i:integer;

begin

Str (Source, SourceStr) ;

Str (Replaced, ReplacedStr) ;

MaxDigit:=' ';

for i:=1 to Length (SourceStr) do

if SourceStr[i]>MaxDigit then MaxDigit:=SourceStr[i];

for i:=Length (SourceStr) downto 1 do

if SourceStr[i]=MaxDigit then begin

Delete (SourceStr, i, 1) ;

Insert (ReplacedStr, SourceStr, i)

end;

Result:=SourceStr

end;

var

n, c:integer;

r:string;

begin

Write ('Введите исходное число: ') ; Readln (n) ;

Writeln ('Введите число для замены: ') ; Readln (c) ;

DigitReplace (n, c, r) ;

Writeln ('Результат: ', r) ;

end.