составить программу которая определяет вторую цифру четырёхзначного числа, и заменяет её на 4

varch,otv,perv,last:Integer;beginWriteLn('Введите число');readln(ch);last:=ch mod 100;ch:=ch div 100;perv:= ch div 10;ch:=ch div 10;otv := perv*1000+4*100+last;WriteLn('Ответ: ',otv)end.пж как лучший