```pascal
program Bai4;
var
n, k, i, min, sum, maxH: integer;
a: array[1..20] of integer;

begin
// Nhập số lượng thanh gỗ và độ dài của từng thanh
write('Nhap so luong thanh go: ');
readln(n);
write('Nhap do dai cac thanh go: ');
for i := 1 to n do
begin
read(a[i]);
end;
write('Nhap so met go can cat: ');
readln(k);

// Tìm độ dài ngắn nhất của thanh gỗ
min := a[1];
for i := 2 to n do
begin
if a[i] < min then
min := a[i];
end;

// Tính tổng số mét gỗ cắt bỏ đi nếu để thanh gỗ còn lại đều có độ dài bằng thanh ngắn nhất
sum := 0;
for i := 1 to n do
begin
if a[i] > min then
sum := sum + (a[i] - min);
end;
writeln('Tong so met go cat bo la: ', sum);

// Tìm độ dài h lớn nhất khi tổng số mét gỗ cắt đi không nhỏ hơn k mét
maxH := min + k;
writeln('Do dai lon nhat la: ', maxH);
end.
```
Bạn có thể sao chép mã code trên và chạy trên trình biên dịch Pascal để kiểm tra kết quả. Chúc bạn thành công!