Как описывается файловая переменная для работы с типизированным файлом? !

Var < имя файловой переменной> : file of < тип данных> ;

1const   n=10; var   a: array[1..n] of integer;   i,k,t,imin,imax: integer; begin   randomize; { инициализация датчика пчевдослучайных чисел }   writeln('*** исходный массив ***');   for i: =1 to n do begin       a[i]: =random(20); { интервал [0; 19] }       write(a[i]: 4)       end;   writeln;   { 1. меняем местами правую и левую половины }   writeln('*** 1 ***');   k: =n div 2;   for i: =1 to k do begin       t: =a[i]; a[i]: =a[i+k]; a[i+k]: =t       end;   for i: =1 to n do write(a[i]: 4);   writeln;   { 2. элементы массива, большие 10, заменяем на 100 }   for i: =1 to k do       if a[i]> 10 then a[i]: =100;   writeln('*** 2 ***');   for i: =1 to n do write(a[i]: 4);   writeln;   { 3. удаляем максимальный элемент, вставляем 0 перед минимальным }   { ! }   writeln('*** исходный массив ***');   for i: =1 to n do begin       a[i]: =random(50)+1; { интервал [1; 49] }       write(a[i]: 4)       end;   writeln; writeln('*** 3 ***');   imin: =1; imax: =1;   for i: =2 to n do       if a[i]> a[imax] then imax: =i       else           if a[i]< a[imin] then imin: =i;   if imin < imax then begin { минимальный встречается раньше максимального }       { подвигаем вправо на 1 все элементы от imin и до imax }       for i: =imax-1 downto imin do a[i+1]: =a[i];       a[imin]: =0 { вставляем 0 в позицию imin }       end   else begin { минимальный встречается позже максимального }       { подвигаем влево на 1 элементы от imax до imin -1 }       for i: =imax to imin-1 do a[i]: =a[i+1];       a[imin-1]: =0; { вставляем 0 в позицию перед imin }       end;   for i: =1 to n do write(a[i]: 4);   writeln   end. пример *** исходный массив ***   14    1  11    7  14    8  12    8    1  14 *** 1 ***     8  12    8    1  14  14    1  11    7  14 *** 2 ***     8 100    8    1 100  14    1  11    7  14 *** исходный массив ***   24  36  25    4  42  42  16  39  45  44 *** 3 ***   24  36  25    0    4  42  42  16  39  44 2 const   n=10; var   a: array[1..n] of integer;   i: integer; begin   randomize; { инициализация датчика пчевдослучайных чисел }   writeln('*** исходный массив ***');   for i: =1 to n do begin       a[i]: =random(20); { интервал [0; 19] }       write(a[i]: 4)       end;   writeln;   { 1. выводим нечетные элементы }   writeln('*** 1 ***');   for i: =1 to n do       if a[i] mod 2 < > 0 then write(a[i]: 4);   writeln;   { 2. элементы на четных позициях обнуляем }   i: =2;   while i< =n do begin       a[i]: =0;       i: =i+2       end;   writeln('*** 2 ***');   for i: =1 to n do write(a[i]: 4);   writeln end. пример *** исходный массив ***   12    0  14    8  13  17    3    1  12  17 *** 1 ***   13  17    3    1  17 *** 2 ***   12    0  14    0  13    0    3    0  12    0 замечание: третью решить в такой постановке невозможно. в самом деле, требуется удалить последний нечетный элемент, а перед третьим элементом вставить ноль. что делать, если этим последним нечетным окажется третий?