Как заменить код На Pascal ABC (обработка типизированного файла записей)

[Serge_Bliznykov]

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

а на примере как будет выглядеть

А разве ваш код не меняется первые две записи местами?!
Вроде бы, должно работать.
Конечно, чисто технически, можно заменить, reset(f) после чтения записей на Seek(f,0):

reset(f); read(f,s); read(f,s1); // указатель на начало, читаем первые 2 записи
seek(f,0); write(f,s1); write(f,s); // указатель на начало, пишем первые 2 записи
close(f); // сохраняем изменения

но, в данном случае, по моему, и ваш код отработает нормально.

Что не так?!