Создать файл, компоненты (<=10) которого являются символами, а потом поменять местами значение первой и последней компонентов файла. Исходный и результирующий файлы вывести на экран - Pascal(Паскаль)

var
  fIn,fOut:file of char;
  temp:char;
  a:array [1..10] of char;
  i,N:integer;
begin
  Assign(fIn,'input.dat');
  Assign(fOut,'output.dat');
  Rewrite(fIn);
  //записываем в файлы
  WriteLn('Введите очередной символ, окончание ввода 0');
  repeat
    N:=FilePos(fIn)+1;
    readln(a[N]);
    Write(fIn,a[N])
  until
    (FileSize(fIn)=10) or (a[N]='0');
  //выводим исходный файл
  WriteLn('Исходный файл...');
  Seek(fIn,0);
  while not EOF(fIn) do
  begin
    Read(fIn,temp);
    Write(temp)
  end;
  WriteLn;
  //меняем первый элемент с последним
  temp:=a[1];
  a[1]:=a[N];
  a[N]:=temp;
  //заносим массив в новый файл
  Rewrite(fOut);
  for i:=1 to N do
    Write(fOut,a[i]);
  //выводим полученный файл
  WriteLn('Полученный файл...');
  Seek(fOut,0);
  while not EOF(fOut) do
  begin
    Read(fOut,temp);
    Write(temp)
  end;
  ReadLn;
  Close(fIn);
  Close(fOut)
end.