добить программу с массивами

[seven123]

здравствуйте нужна помощь, задача такая:

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет
посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива):
Заменить первый элемент массива максимальным (11);

вот что получилось

uses crt;
var a:array[1..11] of integer;
n,i:integer;
begin
clrscr;
i:=1;
writeln('BBOD:');
while i<=11 do
begin
write('a[',i,']=');
readln(a[i]);
i:=i+1;
end;
n:=1;
i:=2;
writeln;
writeln('BbIBOD:');
repeat
if a[i]>a[n] then n:=i;
writeln('a[',i,']=',a[n]);
i:=i+1;
until i>11;
readln;
end.

помогите добить

[whatever]

var
  a:array[1..11] of integer;
  n,max,i:integer;
begin
  i:=1;
  writeln('BBOD:');
  while i<=11 do
    begin
      write('a[',i,']=');
      readln(a[i]);
      i:=i+1;
    end;
  writeln;


  writeln('BbIBOD:');
  n:=1;
  max:=a[n];
  i:=1;
  repeat
    writeln('a[',i,']=',a[i]);
    if max<a[i] then
      begin
        max:=a[i];
        n:=i;
      end;
    i:=i+1;
  until i>11;

  writeln;
  writeln('CopTupoBka:');
  if n<>1 then
    begin
      i:=a[1];
      a[1]:=max;
      a[n]:=i;
    end;

  i:=1;
  repeat
    writeln('a[',i,']=',a[i]);
    i:=i+1;
  until i>11;

  readln;
end.

[seven123]

Сообщение от whatever

var
  a:array[1..11] of integer;
  n,max,i:integer;
begin
  i:=1;
  writeln('BBOD:');
  while i<=11 do
    begin
      write('a[',i,']=');
      readln(a[i]);
      i:=i+1;
    end;
  writeln;


  writeln('BbIBOD:');
  n:=1;
  max:=a[n];
  i:=1;
  repeat
    writeln('a[',i,']=',a[i]);
    if max<a[i] then
      begin
        max:=a[i];
        n:=i;
      end;
    i:=i+1;
  until i>11;

  writeln;
  writeln('CopTupoBka:');
  if n<>1 then
    begin
      i:=a[1];
      a[1]:=max;
      a[n]:=i;
    end;

  i:=1;
  repeat
    writeln('a[',i,']=',a[i]);
    i:=i+1;
  until i>11;

  readln;
end.

спасибо большое