Составить программу вычисления суммы неповторяющихся элементов одномерного целочисленного массива A(M)

var 
     a:array of integer;
     m:integer;
function issimple(i:integer):boolean;
begin
  result:=true;
  for k:integer:=2 to i div 2 do if i mod k=0 then begin result:=false;break;end;
end;
begin 
  write('m='); readln(m);
  setlength(a,m);
  write ('введите массив:');for m:=0 to m-1 do read(a[m]);
  writeln('сумма=',a.Distinct.Where(i->issimple(i)).ToArray.sum);
 end.

const n=100;
var
     a:array [1..n] of integer;
     m,i,j,k:integer;
     ok:boolean;
     sum:longint;
function IsSimple(i:integer):boolean;{проверка числа на простоту}
var
  resultat:boolean;
  k:integer;
begin
  if i=1 then resultat:=false else resultat:=true;{1-не является простым числом, т.к. имеет всего один делитель}
  for k:=2 to i div 2 do
    if i mod k=0 then begin resultat:=false;break;end;{если остаток равен нулю, значит число составное}
  IsSimple:=resultat;
end;
begin
  repeat
    write('m='); readln(m);
  until (m>0) and (m<101);
  write ('Введите массив:');
  for i:=1 to m do read(a[i]);
  sum:=0;
  for i:=1 to m do begin
    if IsSimple(a[i]) then begin {проверяем число на простоту}
      ok:=true;
      for k:=1 to i-1 do if a[k]=a[i] then begin ok:=false;break;end;{проверяем число на уникальность в массиве}
      if ok then sum:=sum+a[i];{если уникальность соблюдена, добавляем к сумме}
    end;
  end;
  writeln('Сумма=',sum);
end.