Паскаль Напишите программу, которая 10 раз запрашивает ввод целого числа. При завершении ввода на экран выводится сумма

program chisla;

var

A:array [1..10] of integer;

i,min,max,sum:integer;

begin

sum:=0;

for i:=1 to 10 do

begin

writeln(\'введите число\');

readln(A[i]);

sum:=sum+A[i];

end;

min:=A[1];

max:=A[1];

for i:=1 to 10 do

begin

if A[i]>max then max:=A[i];

if A[i]<min then min:=A[i];

end;

writeln(\'сумма введенных чисел =\',sum);

writeln(\'минимальный элемент =\',min);

writeln(\'максимальный элемент =\',max);

end.