unit swap_data_u;

interface

type list = ^node;
     node = record
         surname: string[13];
         name: string[11];
         group: string[7];
         comp_reg: string[10];
         data: string[11];
         time: string[5];
         next: list;
     end;

procedure swap_data (var T1, T2: list);

implementation

procedure swap_data (var T1, T2: list);
    var T: list;

begin

    new (T);

    T^.surname := T1^.surname;
    T^.name := T1^.name;
    T^.group := T1^.group;
    T^.comp_reg := T1^.comp_reg;
    T^.data := T1^.data;
    T^.time := T1^.time;

    T1^.surname := T2^.surname;
    T1^.name := T2^.name;
    T1^.group := T2^.group;
    T1^.comp_reg := T2^.comp_reg;
    T1^.data := T2^.data;
    T1^.time := T2^.time;

    T2^.surname := T^.surname;
    T2^.name := T^.name;
    T2^.group := T^.group;
    T2^.comp_reg := T^.comp_reg;
    T2^.data := T^.data;
    T2^.time := T^.time;

end;

end.