В Паскале.Создайте программу нахождения и вывода в файл максимального и минимального значения элементов числового массива

program arr;var a: array [1..15] of integer;i: integer;f: text;min, max, i_min, i_max: integer;beginassign(f, \'e:\\pascal\\Output.txt\'); //заменить имя файла на рабочееrandomize;for i:=1 to 15 do begina[i]:= random(50)+1;if i = 1 then beginmax:=a[1];min:=a[1]endelse beginif a[i] < min then min:= a[i];if a[i] > max then max:= a[i];endend;rewrite(f);for i:= 1 to 15 do beginwrite(f, a[i], \' \');write(a[i], \' \');end;write(f, a[i], \' \');writeln(f, \' \');writeln(f, \'Минимум: \', min,\', максимум: \',max);close(f)end.