одномерный массив

[Lizonka-88]

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

Program zad5;
uses crt;
const
   n = 10;
type
   mas = array[1..n] of integer;
var    a: mas; i,p: byte; max,k: integer;
Begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
max:=a[1];
k:=a[1];
 for i:=2 to n do
   if a[i]>max
   then Begin max:=a[i]; p:=i; end;
a[1]:=max;
a[p]:=k;
writeln('вывод нового массива:');
   for i:=1 to n do write(a[i]);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Hacker19_90]

ПРОЩЕ!

Program zad5;
uses crt;
const
n = 10;
type
    mas = array[1..n] of integer;
var 
    a: mas; 
    k, i: integer;
begin
    clrscr;
    max := 1;
    writeln('введите элементы массива');
    for i:=1 to n do
    begin 
        readln(a[i]);
        if a[max] < a[i] then max := i;
    end;
    a[1] := a[1] xor a[max];
    a[max] := a[1] xor a[max];
    a[1] := a[1] xor a[max];
    writeln('вывод нового массива:');
    for i:=1 to n do write(a[i]:5);
    ReadKey;
end.

[Lizonka-88]

введите первое число максимальным, что получится? почему-то всегда ноль выводится

[Hacker19_90]

Обнулит потому что!
делайте так!

Program zad5;
uses crt;
const
n = 10;
type
    mas = array[1..n] of integer;
var 
    a: mas; 
    max, i, temp: integer;
begin
    clrscr;
    max := 1;
    writeln('введите элементы массива');
    for i:=1 to n do
    begin 
        readln(a[i]);
        if a[max] < a[i] then max := i;
    end;
    temp := a[1];
    a[1] := a[max];
    a[max] := temp;
    writeln('вывод нового массива:');
    for i:=1 to n do write(a[i]:5);
    ReadKey;
end.

[Lizonka-88]

спасибочки

[Hacker19_90]

да, не за чтожечки!