Để giải quyết bài toán này, ta có thể sử dụng vòng lặp để duyệt qua từng ký tự trong xâu đã nhập. Nếu ký tự đó là một chữ số, ta sẽ thêm nó vào một xâu kết quả. Cuối cùng, ta sẽ in ra xâu kết quả đã tạo được.

Dưới đây là mã giả của chương trình:

```
program MaxNumber;

var
st, result: string;
i: integer;
maxNum: integer;

begin
// Nhập xâu từ người dùng
write('Nhập xâu: ');
readln(st);

// Khởi tạo giá trị lớn nhất ban đầu là 0
maxNum := 0;

// Duyệt qua từng ký tự trong xâu
for i := 1 to length(st) do
begin
// Nếu ký tự là một chữ số, thêm nó vào xâu kết quả
if (st[i] >= '0') and (st[i] <= '9') then
result := result + st[i];
end;

// Chuyển xâu kết quả thành số nguyên và tìm số lớn nhất
for i := 1 to length(result) do
begin
if StrToInt(result[i]) > maxNum then
maxNum := StrToInt(result[i]);
end;

// In ra số lớn nhất
writeln('Số lớn nhất sau khi xoá chữ cái: ', maxNum);
end.
```

Chương trình trên sẽ yêu cầu người dùng nhập vào một xâu và sau đó in ra số lớn nhất sau khi đã xoá đi các chữ cái.