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

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