Để giải bài toán này trong Pascal, bạn cần phải tìm cách loại bỏ các ký tự sao cho 5 chữ số cuối cùng còn lại tạo thành số lớn nhất. Dưới đây là hướng dẫn chi tiết và mã Pascal để thực hiện:

### Bước 1: Đọc dữ liệu từ file `SOMAX.INP`.
- Mở file và đọc xâu ký tự vào một biến.

### Bước 2: Xử lý chuỗi để tìm số lớn nhất gồm 5 chữ số.
- Bỏ qua các ký tự không phải là chữ số.
- Sử dụng thuật toán chọn lựa tối ưu các chữ số để đảm bảo rằng 5 chữ số cuối cùng tạo thành số lớn nhất.

### Bước 3: Ghi kết quả ra file `SOMAX.OUT`.

### Mã Pascal:

```pascal
program Somax;

const
InputFile = 'SOMAX.INP';
OutputFile = 'SOMAX.OUT';

var
s, result: string;
i, j, n, max_digit, max_index: integer;

begin
// Mở file và đọc dữ liệu vào xâu 's'
assign(input, InputFile);
reset(input);
readln(s);
close(input);

// Bắt đầu xử lý để tìm 5 chữ số lớn nhất
result := '';
n := length(s);

// Chọn 5 chữ số lớn nhất
for i := 1 to 5 do
begin
max_digit := -1;
for j := 1 to n - 5 + i do
begin
if (s[j] in ['0'..'9']) and (Ord(s[j]) > max_digit) then
begin
max_digit := Ord(s[j]);
max_index := j;
end;
end;

result := result + s[max_index];
n := max_index + 1;
s := copy(s, max_index + 1, length(s) - max_index);
end;

// Ghi kết quả vào file SOMAX.OUT
assign(output, OutputFile);
rewrite(output);
writeln(result);
close(output);
end.
```

### Giải thích:

1. **Đọc file**: Chương trình đọc toàn bộ xâu từ file `SOMAX.INP`.
2. **

Để giải bài toán này trong Pascal, bạn cần phải tìm cách loại bỏ các ký tự sao cho 5 chữ số cuối cùng còn lại tạo thành số lớn nhất. Dưới đây là hướng dẫn chi tiết và mã Pascal để thực hiện:

### Bước 1: Đọc dữ liệu từ file SOMAX.INPSOMAX.INP.
- Mở file và đọc xâu ký tự vào một biến.

### Bước 2: Xử lý chuỗi để tìm số lớn nhất gồm 5 chữ số.
- Bỏ qua các ký tự không phải là chữ số.
- Sử dụng thuật toán chọn lựa tối ưu các chữ số để đảm bảo rằng 5 chữ số cuối cùng tạo thành số lớn nhất.

### Bước 3: Ghi kết quả ra file SOMAX.OUTSOMAX.OUT.

### Mã Pascal:

`pascal
program Somax;

const
InputFile = 'SOMAX.INP';
OutputFile = 'SOMAX.OUT';

var
s, result: string;
i, j, n, max_digit, max_index: integer;

begin
// Mở file và đọc dữ liệu vào xâu 's'
assign(input, InputFile);
reset(input);
readln(s);
close(input);

// Bắt đầu xử lý để tìm 5 chữ số lớn nhất
result := '';
n := length(s);

// Chọn 5 chữ số lớn nhất
for i := 1 to 5 do
begin
max_digit := -1;
for j := 1 to n - 5 + i do
begin
if (s[j] in ['0'..'9']) and (Ord(s[j]) > max_digit) then
begin
max_digit := Ord(s[j]);
max_index := j;
end;
end;

result := result + s[max_index];
n := max_index + 1;
s := copy(s, max_index + 1, length(s) - max_index);
end;

// Ghi kết quả vào file SOMAX.OUT
assign(output, OutputFile);
rewrite(output);
writeln(result);
close(output);
end.