Bạn nhớ kiểm tra lại xem có bị lỗi không nếu có thì nói mình nhé.

program Hello;
uses crt;
var n,itnhat,nhieunhat,tg,i,j:integer;
    a:array[1..100] of integer;
begin
    clrscr;
    Write('n= ');
    readln(n);
nhieunhat:=1;
itnhat:=100;
    for i:=1 to n do
        begin
            Write('Vi tri a', i,'= ');
            readln(a[i]);
        end;    
    for i:=1 to n do
        for j:=1 to n-1 do
            if a[j]>a[i] then
                begin
                    tg:=a[i];
                    a[i]:=a[j];
                    a[j]:=tg;
                end;
tg:=1;
    for i:=1 to n do
        begin
            j:= a[i+1]-a[i];
            if (j > 2) or (j<0) then
                begin
                    if nhieunhat<tg then nhieunhat:=tg;
                    if itnhat>tg then itnhat:=tg;
                    tg:=1;
                end;
            if j < 3 then
                tg:=tg+1;
        end;
    Writeln('Nhieu nhat: ', nhieunhat );
    Writeln('It nhat: ', itnhat); 
end.

uses crt;
var nhiem:array[1..10000] of boolean;
    i,n,min,max:longint;
    a:array[1..10000] of byte;
function songuoinhiem():longint;
var ii,dem:longint;
begin
    dem:=0;
    for ii:=1 to n do
       if nhiem[ii]=true then inc(dem);
    exit(dem);
end;
procedure truyen();
var j,jj,snn:longint;
begin
    for j:=1 to n-1 do
       for jj:=j+1 to n do
          if abs(a[j]-a[jj])<=2 then
             if (nhiem[j]=true) or (nhiem[jj]=true) then
                begin
                    nhiem[j]:=true;
                    nhiem[jj]:=true;
                end;
    snn:=songuoinhiem();
    if snn>max then max:=snn;
    if snn<min then min:=snn;
end;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    readln;
    min:=n;max:=1;
    for i:=1 to n do
       begin
           fillchar(nhiem,sizeof(nhiem),false);
           nhiem[i]:=true;
           truyen();
       end;
    writeln(min,' ',max);
readln;
end.