Thi Tốt Nghiệp Pascal:const maxlength=100;type list=record element:array[1..maxlength]of integer; last:integer; end;var l:list;vt,vt1,x:integer; ch:char;procedure khoitao(var l:list);begin l.last:=0;end;function ktrong(l:list):boolean;begin ktrong:=(l.last=0);end;function ktday(l:list):boolean;begin ktday:=(l.last=maxlength);end;procedure them(x,vt:integer;var l:list);var i:integer;begin if (ktday(l)) then write(`loi day`) else if (vtl.last+1)then write(`loi vtri`) else begin for i:=l.last downto vt do l.element[i+1]:=l.element[i]; l.last:=l.last+1; l.element[vt]:=x; end;end;procedure xoa(vt:integer;var l:list);var i:integer;begin if ktrong(l) then write(`ds rong`) else if (vtl.last+1) then write(`loi vtri`) else begin for i:=vt+1 to l.last do l.element[i-1]:=l.element[i]; l.last:=l.last-1; end;end;function tim(x:integer;var l:list):integer;var i:integer;begin i:=1; while (ix)do i:=i+1; tim:=i;end;PROCEDURE NHAP; VAR X,I,N:INTEGER; BEGIN WRITELN(`SO PHAN TU :`);READLN(N); FOR I:=1 TO N DO BEGIN WRITELN(`GIA TRI THU `,I,` :`);READLN(X); THEM(X,I,L); END; END;PROCEDURE XUAT; VAR I:INTEGER; BEGIN for i:=1 to l.last do writeln(l.element[i]:5); END;begin khoitao(l); NHAP; XUAT; WRITELN(`GIA TRI CAN THEM:`);readln(X); WRITELN(`VI TRI CAN THEM:`);readln(vt); them(x,vt,l); WRITELN(`VI TRI CAN XOA:`);readln(vt); xoa(vt,l); write(`PHAN TU CAN TIM:`);readln(x); if tim(x,l)>l.last then write(`KHONG TIM THAY`) else write(`TIM THAY O VI TRI:`,tim(x,l)); readln;end.Hàng Đợi Đã Sửa:PROGRAM HANGDOI_MANG;USES CRT;CONST MAX=100;TYPE KPT=INTEGER; HD=RECORD GT:ARRAY[1..MAX] OF KPT; DAU,CUOI:INTEGER; END;VAR H:HD; X:KPT; K,J,N:BYTE; CH:CHAR;{---THU TUC...