Dưới đây là chương trình Pascal để thực hiện yêu cầu của bạn:

```pascal
program SoChinhPhuong;
var
x, y, m, count: integer;
begin
repeat
write('Nhap x (2 < x < 50): ');
readln(x);
until (x > 2) and (x < 50);

repeat
write('Nhap y (60 < y < 100): ');
readln(y);
until (y > 60) and (y < 100);

writeln('Cac so chinh phuong tu ', x, ' den ', y, ':');
count := 0;

for m := x+1 to y-1 do
begin
if (sqrt(m) = trunc(sqrt(m))) then
begin
writeln(m);
count := count + 1;
end;
end;

writeln('Tong so chinh phuong: ', count);
readln;
end.
```

Chương trình trên sẽ yêu cầu người dùng nhập vào 2 số tự nhiên x và y thỏa mãn điều kiện 2 < x < 50 và 60 < y < 100. Nếu người dùng nhập sai yêu cầu, chương trình sẽ yêu cầu nhập lại.

Sau đó, chương trình sẽ in ra màn hình các số chính phương từ x đến y (không bao gồm x và y). Đồng thời, chương trình sẽ đếm số lượng số chính phương và in ra tổng số chính phương đó.