снова массивы Опции

[vovka239]

Помогите пожалуйста решить задачу на массивы:
Даны натуральные числа k,m, действительные числа а1,а2...,аk, b1,b2,..,bm. Среди а1..ak нет повторяющихся членов, нет их и среди b1..bm. Найти сумму тех членов последовательности b..bm, которые входят и в последовательность а1..аk.
Вот выкладываю код. вроде бы хоть частично он правильный) Переделал из задачи про одномерный массив...

program Project2;
Var
Mas1 : Array [1..5] Of Integer;
Mas2 : Array [1..5] Of Integer;
ss : Integer;
k : Integer;
m : Integer;
Begin
For k:=1 to 5 do
begin
  writeln('Введите', k,'-ый член последовательности');
  read(Mas1[k]);
end;
For m:=1 to 5 do
begin
  writeln('Введите', m,'-ый член последовательности');
  read(Mas2[m]);
end;
for k:=1 to 5 do
  for m:=1 to 5 do  //неуверен что здесь тоже правильно написано
If Mas1[k]=Mas2[m] then ss:=m+...;//не знаю вообще как это сделать(((
Writeln(ss);
readln;
end.