Составить программу обмена местами двух любых элементов типизированного файла, в котором записаны отдельные символы.

[f1x]

Составить программу обмена местами двух любых элементов типизированного файла, в котором записаны отдельные символы.

[BDA]

Меняет местами 5 и 11 символ:

uses
  CRT;

var
  f: file of char;
  a, b: char;

begin
  assign(f, 'in.txt');
  reset(f);
  seek(f, 4);
  read(f, a);
  seek(f, 10);
  read(f, b);
  seek(f, 4);
  write(f, b);
  seek(f, 10);
  write(f, a);
  close(f);
end.

[f1x]

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

Меняет местами 5 и 11 символ:

uses
  CRT;

var
  f: file of char;
  a, b: char;

begin
  assign(f, 'in.txt');
  reset(f);
  seek(f, 4);
  read(f, a);
  seek(f, 10);
  read(f, b);
  seek(f, 4);
  write(f, b);
  seek(f, 10);
  write(f, a);
  close(f);
end.

пишет не удается найти указанный файл

[BDA]

Создайте около получившего exe файла текстовый файл in.txt и вбейте туда не менее 11 символов.