what

program XoaChuSoLonNhat;

var
  s: string;
  i, j, k, vitri: integer;
  soLonNhat: longint;

function ChuanHoa(s: string): string;
var
  i, j: integer;
begin
  for i := 1 to Length(s) do
    if s[i] = '0' then
      Delete(s, i, 1);
  for i := 1 to Length(s) do
    if s[i] = '-' then
      Delete(s, i, 1);
  if s[1] = '+' then
    Delete(s, 1, 1);
end;

function TimViTriLonNhat(s: string): integer;
var
  i, j: integer;
begin
  vitri := 1;
  for i := 2 to Length(s) do
    if s[i] > s[vitri] then
      vitri := i;
end;

function XoaChuSo(s: string; vitri: integer): string;
var
  i: integer;
begin
  Delete(s, vitri, 1);
  for i := vitri to Length(s) do
    Inc(s[i]);
end;

function ChuyenSangSo(s: string): longint;
var
  i, so: integer;
begin
  so := 0;
  for i := 1 to Length(s) do
    so := so * 10 + Ord(s[i]) - Ord('0');
  if s[1] = '-' then
    so := -so;
end;

begin
  Writeln('Nhap xau: ');
  Readln(s);
  s := ChuanHoa(s);

  vitri := TimViTriLonNhat(s);
  soLonNhat := ChuyenSangSo(XoaChuSo(s, vitri));

  Writeln('So lon nhat sau khi xoa 1 chu so: ', soLonNhat);
end

Bạn thử code này nhé
program RENUM;

var
    S: string;
    frequency: array[0..9] of integer; // Mảng đếm số lần xuất hiện của các số từ 0 đến 9
    maxFreq, maxNum, i, num: integer;

begin
    // Khởi tạo tất cả các phần tử trong mảng đếm về 0
    for i := 0 to 9 do
        frequency[i] := 0;

    // Nhập xâu ký tự S từ bàn phím
    writeln('Nhap vao xau ky tu S: ');
    readln(S);

    // Đếm số lần xuất hiện của các số từ 0 đến 9 trong xâu S
    for i := 1 to length(S) do
    begin
        if (S[i] >= '0') and (S[i] <= '9') then
        begin
            num := ord(S[i]) - ord('0');
            frequency[num] := frequency[num] + 1;
        end;
    end;

    // Tìm số có số lần xuất hiện nhiều nhất và nhỏ nhất
    maxFreq := 0;
    maxNum := 0;
    for i := 0 to 9 do
    begin
        if frequency[i] > maxFreq then
        begin
            maxFreq := frequency[i];
            maxNum := i;
        end;
    end;

    // In ra số xuất hiện nhiều nhất
    if maxFreq > 0 then
        writeln('So xuat hien nhieu nhat la: ', maxNum)
    else
        writeln('Trong xau khong co so nao.');

    readln;
end.

x = int(input("Nhap x="))
y = int(input("Nhap y="))

tong = x + y
hieu = x - y
tich = x * y
thuong = x / y

print("Tong x+y=", tong)
print("Hieu x-y=", hieu)
print("Tich x*y=", tich)
print("Thuong x/y=", thuong)