Chỉ là chỉ sao

ok

Khi trình bày văn bản và màu sắc trên trang chiếu cần chú ý chữ phải ngắn gọn, rõ ràng, chỉ nêu các ý chính, không viết quá nhiều chữ trên một trang, kích thước chữ đủ lớn để người xem dễ đọc, phông chữ đơn giản và thống nhất trong toàn bộ bài trình chiếu, màu chữ phải tương phản với màu nền để dễ nhìn, không dùng quá nhiều màu sắc gây rối mắt, màu nền nên nhẹ và hài hòa với nội dung, đồng thời cần sắp xếp văn bản cân đối và dễ theo dõi trên trang chiếu.

    Olm chào em, em cần làm gì với dãy dữ liệu này? Khi đăng câu hỏi trên Olm Em cần lưu ý, ghi rõ yêu cầu câu hỏi để nhận được sự trợ giúp tốt nhất cho tài khoản Olm Vip. 

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