Обработка файлов.

[Morzik8]

Дан символьный файл f, содержащий четное число символов X1,X2...X2n-1,X2n.Составить программу, которая переписывает в файл g компоненты файла f в следующем порядке X2n,X1,X2n-1,X2 и т.д.

program Lab9;
var
  f:file of char;
  a,b:char;
  n,i,j:integer;
begin

  assign(f,'file1');
  rewrite(f);
    repeat;
     writeln('vvesti chentoe chiclo  n=');
     readln(n);
    until n mod 2=0;
     writeln('Vvedite' ,n, 'simvolov:');
for i:=1 to n do
 begin
  readln(a);
  write(f,a);
 end;

  writeln('Soderganie isxodnogo faila:');
  reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
  writeln;
  close(f);
  reset(f);
for i:=1 to n div 2 do
 begin
  seek(f,n-1);
  read(f,a);
  for j:=n-1 downto 2*i-1 do
   begin
    seek(f,j-1);
    read(f,b);
    seek(f,j);
    write(f,b);
   end;
  seek(f,2*i-2);
  write(f,a);
 end;
  close(f);
  writeln('Soderganie faila posle perestanovki:');
  reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
  close(f);
  readln
end.

Как избавится от дополнительной подпрограмм? Просто запрещено пользоваться SEEK,FILESIZE,FILEPOS.
а как переделать не понимаю!

[Armorer]

Если читать сначала в массив (или раз символы в строку) а потом его нужным образов выводить то подпрограммы будут не нужны. Больше по моему никак, первый элемент который нужно вывести последней в исходном файле, не пользуясь seek вывести его можно только прочитав весь файл.

[Morzik8]

Сообщение от Armorer

Если читать сначала в массив (или раз символы в строку) а потом его нужным образов выводить то подпрограммы будут не нужны. Больше по моему никак, первый элемент который нужно вывести последней в исходном файле, не пользуясь seek вывести его можно только прочитав весь файл.

в добавок ко всему...В программе запрещается чтение всех данных из исходного файла и размещение их в массиве