Найти сумму элементов массива, меньших 30

Program Massivi;
 
uses crt;
 
const n = 100;
 
var a : array [1 .. 10] of longint;
    i, k, summa : integer;
 
begin
for i := 1 to 10 do
begin
a[i] := random(n);
end;
 
for k := 1 to 10 do
begin
Delay(50);
WriteLn('Элемент МАССИВА [',k,'] = ',a[k],' !');
if (a[k] < 30) then
summa := summa + a[k];
end;
 
WriteLn;
WriteLn('Сумма элементов < 30 = ',summa);
end.

var a:array [1..10]of byte;
 i:byte;
begin
for i:=1 to 10 do
begin
a[i]:=random(16);
write(a[i]:4);
end;
writeln;
 for i:=1 to 10 do
begin
a[i]:=a[i]+12;
write(a[i]:4);
end;
writeln;
end.

const
 n=10;
var
 arr: array[1..100] of integer;
 i, summ: integer;
begin
 randomize;
 summ:=0;
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i]<30 then
      summ:=summ+arr[i];
   end;
 writeln;
 write(summ);
end.

const
 n=10;
var
 arr: array[1..n] of integer;
 i: integer;
begin
 randomize;
  for i:=1 to n do
   begin
    arr[i]:=random(16);
    write(arr[i], ' ');
    arr[i]:=arr[i]+12;
   end;
 writeln;
  for i:=1 to n do
   write(arr[i], ' ');
end.