Типизированный файл

[vaako]

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

[BDA]

Меняет последний символ с первым (проверки на пустоту файла нет):

Uses CRT;
var
f:file of char;
c1,c2:char;
BEGIN
assign(f,'text.txt');
reset(f);

seek(f,0);
read(f,c1);
seek(f,filesize(f)-1);
read(f,c2);

seek(f,0);
write(f,c2);
seek(f,filesize(f)-1);
write(f,c1);

close(f);
END.