Не работает прога

program twelve;
 uses crt;
 const
 uin = 1;uax = 10;
 var
 a: array[uin..uax] of integer;
 i, c, min, max, ma, mi: integer;
 begin
 clrscr;
 randomize;
 min := 0;max := 0;
 
 for i := uin to uax do
 begin
 a[i] := random(21) - 10;
 write(' ', a[i]:2);
 end;
 writeln;
 
 for i := uin to uax do
 begin
 if max < a[i] then
 max := a[i];
 if min > a[i] then
 min := a[i];
 end;
 writeln('max ', max);
 writeln('min ', min);
 writeln;
 
 for i := uin to uax do
 begin
 if a[i] > a[ma] then ma := i;
 if a[i] < a[mi] then mi := i;
 end;
 c := a[ma];
 a[ma] := a[mi];
 a[mi] := c;
 
 for i := uin to uax do
 begin
 write(a[i]:3);
 end;
 readln;
 end.

uin = 1;uax = 10;

  ma:=1;mi:=1;

ma := 1;
mi := 1;
for i := uin+1 to uax do
begin
    if a[ma] < a[i] then ma := i;
    if a[mi] > a[i] then mi := i;
end;
writeln('max ', a[ma]);
writeln('min ', a[mi]);
writeln;