Dưới đây là chương trình Pascal để nhập vào 1 dãy các số nguyên n, tìm và in ra số lớn nhất và nhỏ nhất trong dãy số đó:

```
program TimSoMaxMin;
var
n, i, so, max, min: integer;
begin
write('Nhap vao so phan tu cua day: ');
readln(n);

// Nhập dãy số và tìm số lớn nhất và nhỏ nhất
for i:= 1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(so);

if i = 1 then // Nếu đây là số đầu tiên được nhập thì gán cho max và min
begin
max := so;
min := so;
end
else
begin
if so > max then
max := so; // Tìm số lớn nhất

if so < min then
min := so; // Tìm số nhỏ nhất
end;
end;

// In số lớn nhất và nhỏ nhất
writeln('So *** nhat trong day la: ', max);
writeln('So nho nhat trong day la: ', min);
readln;
end.
```

Chương trình này sẽ yêu cầu người dùng nhập vào số phần tử của dãy số. Sau đó, nó sẽ yêu cầu nhập từng số trong dãy và tìm số lớn nhất và nhỏ nhất bằng cách so sánh từng số với giá trị hiện tại của số lớn nhất và nhỏ nhất. Cuối cùng, chương trình sẽ in ra số lớn nhất và nhỏ nhất tìm được.