[Помогите!] Вывод массива в файл (паскаль)

[~Керя~]

Короче, проблемка такая:

Есть код -

    uses crt;
     var a:array [1..10] of integer;
         i,max,min,N,M: integer;
         s: string;
         f:text;
    begin
     clrscr;
     randomize;
    {========Sozdanie papki==========}
    {$I-}
    s:='C:\Kirill11';
    Mkdir (s);
    read;
    {========Konec sozdania==========}
    i:=1;
    max:=a[1];
    min:=a[1];
    while i<>11 do      begin
    a[i]:=random (21)-10;
    writeln ('a[',i,']= ',a[i]);
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
    i:=i+1;
                        end;
    writeln;
    writeln ('Maximal el-nt = ',max);
    writeln ('Minimal el-nt = ',min);
    writeln;
    i:=1;
     
    for i:=1 to 10 do  begin
    if a[i]=max then a[i]:=min else
    if a[i]=min then a[i]:=max;
    writeln ('a[',i,']= ',a[i]);
    end;
    readln;
    end.

То, что выделено красным, нужно вывести в 3 разные файла.

1. Выводим рандомный массив.
2. Выводим макс./мин.
3. Выводим тот же массив, но заменяем макс. и мин. друг другом.

Так вот, пробовал

assign (f,'c:/Kirill11/massiv.txt'); rewrite (f);

После, красную часть вывода массива писал так:

writeln (f,'a[',i,']= ',a[i]);
...
close (f);

Ну и далее как есть. Но все равно создается пустой файлик... Подскажите, в чем ошибка.

[NebesaBag]

a[i]:=random (21)-10;

[~Керя~]

Цитата: Сообщение от NebesaBag a[i]:=random (21)-10;

Что вам опять не нравится?...
21 число, от -10 до 10...

[~Керя~]

Понял ошибку
Вот итог, кому интересно. [Ссылки могут видеть только зарегистрированные пользователи. ]