Cho đoạn chương trinh sau. Đây là chương trình hoán đội giá trị a và b cho nhau

Cho đoạn chương trinh sau:

Program hoan_doi;

Var a,b: Integer;

Begin

Write('Nhap vao a= '); Readln(a);

Write('Nhap vao b= '); Readln(b); 

a:= a + b ;

a:= a – b ;

b:= b + a ;

Writeln( 'a = ',a, ' b = ',b);

Readln;

End.

Đây là chương trình hoán đội giá tri a và b cho nhau.  chương trình trên đúng chưa? sai chỗ nào? hãy viết lại ct trên cho đúng?