Đây là mã Pascal để tính tổng các phần tử lớn hơn 0 của một mảng số thực nhập từ bàn phím:

```
program TongCacPhanTuLonHonKhong;

var
  n, i: integer;
  arr: array of real;
  sum: real;

begin
  write('Nhap so phan tu cua mang: ');
  readln(n);
  
  SetLength(arr, n);
  
  for i := 0 to n-1 do
  begin
    write('Nhap phan tu thu ', i+1, ': ');
    readln(arr[i]);
  end;
  
  sum := 0;
  
  for i := 0 to n-1 do
  begin
    if arr[i] > 0 then
    begin
      sum := sum + arr[i];
    end;
  end;
  
  writeln('Tong cac phan tu lon hon 0 la: ', sum:0:2);
  
end.
```

Giải thích:

- Dòng 3 và 4 dùng để khai báo biến và mảng.
- Dòng 6 yêu cầu người dùng nhập số phần tử của mảng.
- Dòng 8 dùng để cấp phát bộ nhớ cho mảng arr với độ dài là n.
- Đoạn code từ dòng 10 đến 15 dùng để lặp qua từng phần tử của mảng và nhập giá trị từ bàn phím.
- Khởi tạo biến sum bằng 0 để tính tổng các phần tử lớn hơn 0.
- Đoạn code từ dòng 18 đến 22 dùng để lặp qua từng phần tử của mảng và nếu phần tử là số dương (lớn hơn 0) thì cộng vào biến sum.
- Kết quả được in ra màn hình bằng cách dùng lệnh writeln.