pascal Viết chương trình xóa những phần tử sao cho mảng kết quả có thứ tự tăng dần và số lần xóa là ít nhất.

uses crt;
type arr= array[1..10000] of integer;
var n,i,j,count: integer;
    a: arr;
function kt(a: arr): boolean;
var i: integer;
begin
    for i:=1 to n do if a[i]>=a[i+1] then exit(false);
    exit(true);
end;
function delete(a: arr; n: integer): arr;
var i,j: integer;
begin
    i:=1;
    while a[i]<a[i+1] do inc(i);
    if i<n then for j:=i+1 to n do a[j]:=a[j+1];
    delete:=a;
end;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    while kt(a)=false do begin
        a:=delete(a,n);
        n:=n-1;
    end;
    for i:=1 to n+1 do write(a[i],' ');
    readln
end.