Написать программу в Pascal ABC используя операторы цикла WHILE...DO и REPEAT...UNTIL:заменить последний элемент массива минимальным (размерность массива =10)

Var  A: array [1..10] of integer;min,i:integer;begini:=1while i<11 dobeginreadln(A[i]);i:=i+1;end;i:=1;n:=A[1];repeatif min>A[i] then min:=A[i]i:=i+1;until I=10;A[10]:=min;end