interface
type MyRec= record
     name1 : string[39];
     name2 : string[39];
     end;
type Myfiletype = file of MyRec;

procedure FChange( var fff:Myfiletype; FileOpen: boolean );
var rec:myrec;
var  a, b, i: integer;
   str1, str2, str3, str4:string;
begin
writeln (' введите номер первой записи');
{$I-}
read(i);

seek(fff,i);
{$I+}
if (ioresult=0)
then FileOpen:=TRUE
else begin
         MyFileErr:=5;
         exit;
     end;
str1:=rec.name1;
str2:=rec.name2;
writeln(' введите номер второй записи);
{$I-}
read(b);
seek(fff, b);
{$I+}
if (ioresult=0)
then FileOpen:=TRUE
else begin
         MyFileErr:=5;
         exit;
     end;
str3:=rec.name1;
str4:=rec.name2;
rec.name1:=str1;
rec.name2:=str2;
write(fff, rec);
seek(fff, i);
rec.name1:=str3;
rec.name2:=str4;
write(fff, rec);

end;