Составить программу наименьшего четырёх чисел и вывода на экран его квадрата

Var chisl:array[1..4]of integer;
i,min:integer;
begin
  for i:=1 to 4 do begin 
  Write(i,'-чисдо='); Readln(chisl[i]);
  end;
  min:=chisl[1];
  for i:=1 to 4 do begin 
 if chisl[i]<=min then min:=chisl[i];
end;
Writeln('Квадрат минимума=', sqr(min));
end.