Để giải quyết bài toán này trong chương trình Pascal, chúng ta có thể sử dụng các bước sau:

1. Mở file inputT2.txt để đọc dữ liệu vào mảng A.
2. Tìm phần tử nhỏ nhất trong mảng A.
3. Mở file output2.txt để ghi mảng A và giá trị phần tử nhỏ nhất vừa tìm được vào file.

Dưới đây là mã chương trình Pascal để giải quyết bài toán này:

```
program FindMinValueInArray;

var
A: array[1..50] of integer;
n, i, minVal: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc n và các phần tử của mảng A từ file
assign(inputFile, 'inputT2.txt');
reset(inputFile);
readln(inputFile, n);
for i := 1 to n do
read(inputFile, A[i]);
close(inputFile);

// Tìm phần tử nhỏ nhất trong mảng A
minVal := A[1];
for i := 2 to n do
begin
if (A[i] < minVal) then
minVal := A[i];
end;

// Mở file output và ghi mảng A và giá trị phần tử nhỏ nhất vào file
assign(outputFile, 'output2.txt');
rewrite(outputFile);
writeln(outputFile, 'Mang A:');
for i := 1 to n do
write(outputFile, A[i], ' ');
writeln(outputFile);
writeln(outputFile, 'Phan tu nho nhat trong mang A la: ', minVal);
close(outputFile);
end.
```

Trong chương trình này, chúng ta khai báo một mảng A có kích thước tối đa là 50, biến n để lưu số phần tử của mảng và biến minVal để lưu giá trị phần tử nhỏ nhất.

Sau khi mở file inputT2.txt, chúng ta sử dụng câu lệnh readln() để đọc được n và các phần tử của mảng A từ file. Tiếp theo, chúng ta sử dụng một vòng lặp for để tìm giá trị phần tử nhỏ nhất trong mảng A.

Sau khi tìm được giá trị phần tử nhỏ nhất trong mảng A, chúng ta mở file output2.txt để ghi mảng A và giá trị phần tử nhỏ nhất vừa tìm được vào file. Trong quá trình ghi file, chúng ta sử dụng câu lệnh write() và writeln() để hiển thị thông tin cần thiết.