Найти разность между MAX и MIN элементами массива. Найти ошибку

PROGRAM massraznost;
    var A   :array[1..10] of integer; 
    k,i,s,r :integer;
BEGIN
    k:=0;
    s:=0;
    for i:=1 to 10 do
      begin
        A[i]:=random(10);
        write (A[i]:3);
        if A[i] > k 
        then k:=A[i] //Максимальный
        end;
 
    for i:=1 to 10 do
      begin
        if A[i] < k 
        then s:=A[i] //Минимальный
      end;
    r:=k-s; //Разница
    Writeln('Максимальный элемент: ',k);
    Writeln('Минимальный элемент: ',s);
    Writeln('Разница равна: ',r);
END.

var a:array[1..10] of integer;
  min,max,i:integer;
begin
  randomize;
  for i:=1 to 10 do
    begin
      A[i]:=random(10);
      write(A[i]:3);
    end;
  max:=a[1];
  min:=a[1];
  for i:=1 to 10 do
    begin
      if A[i]<min then min:=A[i] //Минимальный
      else if A[i]>max then max:=A[i] //Максимальный
    end;
  Writeln('Максимальный элемент: ',max);
  Writeln('Минимальный элемент: ',min);
  Writeln('Разница равна: ',max-min); //Разница
  readln
end.