Cho chuỗi số nhiều hơn 20 ký tự. Xóa bỏ các chữ số còn lại

Yêu cầu:

a)Số lớn nhất có 5 chữ số

b) số nhỏ nhất có 5 chữ số

pascal ạ

`@@@` Pascal:

uses crt;
var  s: string;
   a: array[1..100] of integer;
   i, n, j, temp: integer;
   max5, min5: string;
begin
  clrscr;
  write('Nhap chuoi so (hơn 20 ky tu): ');
  readln(s);
  n := length(s);
  for i := 1 to n do
    a[i] := ord(s[i]) - 48;
  for i := 1 to n-1 do
    for j := i+1 to n do
      if a[i] > a[j] then
      begin
        temp := a[i];
        a[i] := a[j];
        a[j] := temp;
      end;
  min5 := '';
  i := 1;
  while (i <= n) and (a[i] = 0) do
    i := i + 1;
  for j := 1 to 5 do
  begin
    min5 := min5 + chr(a[i] + 48);
    i := i + 1;
  end;
  max5 := '';
  for i := n downto n-4 do
    max5 := max5 + chr(a[i] + 48);
  writeln;
  writeln('So nho nhat co 5 chu so: ', min5);
  writeln('So lon nhat co 5 chu so: ', max5);
  readln;
end.