Написать на языке паскаль программу которая меняет местами две переменные.

Так?
program q;
uses crt;
var a,b : integer;
begin
write('Введите два числа ');
Readln(a,b);
Writeln(b,',',a);
end.