Дано натуральное число n. заменить Первую и м-ую цифру даного числа цифрой 3

uses crt;
var s:string;
m:integer;
begin
repeat
clrscr;
write('Введите число: ');
readln(s);
repeat
write('Введите m: ');
readln(m);
until m<=length(s);
s[1]:='3';
s[m]:='3';
writeln('Получившееся число: ',s);
write('Ещё? ');
readln(m);
until m=0
end.

uses crt;
var
  n,b,c:longint;
  i,j,k,m:byte;
begin
  clrscr;
  write ('N = ');
  readln(n);
  k:=0;
  b:=n;
  c:=n;
  while b div 10 <> 0 do
   begin
    b:=n;
    n:=n div 10;
    k:=k+1;
   end;
  repeat
   write ('M = ');
   readln(m);
  until m in [0..k];
  b:=3*trunc(exp((k-1)*ln(10)));
  j:=2;
  for i:=k-2 downto 0 do
   begin
    if j=m then
     b:=b+3*trunc(exp(i*(ln(10)))) else
      b:=b+(c div trunc(exp(i*ln(10))) mod 10 * trunc(exp(i*ln(10))));
    j:=j+1;
   end;
  n:=b;
  writeln ('N = ',n);
  readln;
end.