Выбрать минимальное значение

[Federal]

Как выбрать минимальное значение среди переменных
например X1 X2 и X3

[Izymka]

begin
Write('n=');
Read(n);
Write('a1=');
Read(a);
min:=a;
k:=1;
for i:=2 to n do
begin
Write('a',i, '=');
Read(a);	
if a<min then
begin
min:=a;
k:=i;
end
end;
Write('min=',min:7:3,' k=',k);

[Izymka]

begin
Write('n=');
Read(n);
Write('a1=');
Read(a);
min:=a;
k:=1;
for i:=2 to n do
begin
Write('a',i, '=');
Read(a);	
if a<min then
begin
min:=a;
k:=i;
end
end;
Write('min=',min:7:3,' k=',k);

[Izymka]

begin
Write('n=');
Read(n);
Write('a1=');
Read(a);
min:=a;
k:=1;
for i:=2 to n do
begin
Write('a',i, '=');
Read(a);	
if a<min then
begin
min:=a;
k:=i;
end
end;
Write('min=',min:7:3,' k=',k);
end.

вроде так

[Izymka]

пардон за повторение, инет глюкнул...

[Federal]

СПАСИБО!...