Nhập mảng A gồm n phần tử và khóa k , tính và in ra màn hình tổng những số lớn hơn giá trị k cho trước

uses crt;
var
a:array [1..100] of integer;
b :array [1..100] of integer;
l,m,n,i,k :integer;
begin
clrscr;
write('nhap so luong phan tu :');
readln(m);
{setlength(a,m);
for i := low (a) to high (a) do
begin
write('nhap gia tri phan tu a[',i,']');
readln(a[i]);
end;     }
for i:= 1 to m do
begin
write('nhap gia tri phan tu a[',i,']');
readln(a[i]);
end;
write('nhap gia tri cua khoa k : ');
readln(k);
n := 1;
for i := 1 to m do
begin
if (a[i]>k) then
begin
b[n] := a[i];
n:= n+1;
end;
end;
for i := 1 to n-1 do
begin
l:= l + b[i];
end;
write('gia tri can tim la ',l );
readln;
end.

uses crt;
type AI = array [1..100] of integer;
var k,m,n,i,l :integer;
a,b:AI;
begin
clrscr;
write('nhap so luong phan tu mang :') ;
readln(m);
for i := 1 to m do
begin
write('nhap gia tri phan tu a[',i,']:');
readln(a[i]);
end;
write('nhap khoa k :');
readln(k);
n := 1 ;
for i := 1 to m do
begin
if (a[i] > k ) then
begin
b[n] := a[i];
n:= n +1 ;
end;
end;
for i:= 1 to n do l:= l+a[i];
write('gia tri cac phan tu lon hon khoa k la ',l);
readln;
end.