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

Var    a: array [1..100] of integer; 
    n, i, j: integer;
    fout: text;
begin
    assign(fout, output.txt);
    rewrite(fout);
    n := 10; //n - длина массива
    for i := 1 to n do
        a[i] := random(100);
    for i := 1 to n do
        write(fout, a[i], );
    writeln(fout);
    j := 1;
    for i := 2 to n do
        if a[i] > a[j] then
            j := i;
    writeln(fout, max = , a[j],  max_ind = , j);
    j := 1;
    for i := 2 to n do
        if a[i]             j := i;
    writeln(fout, min = , a[j],  min_ind = , j);
    close(fout);
end.