Как сделать так, чтобы процесс повторялся до остатка последнего элемента массива и вывел все результаты. Программный код внутри

[Lime789456]

program kk;
var a:array[1..100000] of longint;
n,i,a1,al,m:integer;
begin
a1:=0;
al:=0;
m:=0;
readln(n);
for i:=1 to n do
   readln(a[i]);
for i:=1 to n do
begin
   a1:=a[1];
   al:=a[n];
   m:=a[n div 2];
end;
writeln(a1,al,m);
readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[evg_m]

вывел все результаты

for i:=1 to n do
begin
 a1:=a[1];
  al:=a[n];
  m:=a[n div 2];
  writeln(a1,al,m);  //наверное так ???{вывод ВНУТРИ цикла}
end;

повторялся до остатка последнего элемента массива

Программный код внутри

и код НИЧЕГО не проясняет.