buradaki sorun değişken adlarından bence

uses crt;
var
a,b,degistirme:integer;
begin
write(‘1. sayıyı gir:’);readln(a);
write(‘2. sayıyı gir:’);readln(b);
degistir:=b;
b:=a;
a:=degistir;
writeln(‘1.sayı:’,a);
writeln(‘2.sayı:’,b);
readkey;
end.

burdaki kalın yazan değişkenleri adı aynı olsun sorun kalmaz.bi önceki postumda düzeltip verdim bi denermisin.