Đề bài : Viết chương trình nhập vào nhiều số cố thể là số nguyên hoặc số thực cách nhau bơi dấu cách , tính và in ra màn hình tổng các số đã nhập

MN ơi em đg cần gấp !!!!

uses crt;
var
    a: array[1..100] of integer;
    i, n,t: integer;
begin
    clrscr;
    write('nhap cac phan tu cua mang: '); readln(n);
    for i:= 1 to n do 
    begin
          write('nhap phan tu thu ',i,' : '); readln(a[i]);
    end; {nhap mang input}
    for i := 1 to n do
        t := t + a[i]; {thuat toan cong don} 
    writeln('Tong cac phan tu cua mang la: ', t:2);
    readln
end.