просветите меня пожалуйста!, что нужно добавить в программу? Опции

[Anti]

просветите меня пожалуйста!
Что нужно изменить в данном документе, чтобы после запуска программы высвечивало:

Dano
Massiv: ......
Resultat: ..... ?

Что надо добавить в эту программу? Подскажите плиз.

Данная программа:

const N=6;
var
k,i,j:integer;
a,b: array [0..N-1] of integer;
c:array [0..2*N-1] of integer; //максимальный набор
begin
writeln('elementi A');
for i:=0 to N-1 do
readln(a[i]);
writeln('elementi B');
for i:=0 to N-1 do
readln(b[i]);
k:=0;
for i:=0 to N-1 do
for j:=0 to N-1 do
if a[i]=b[j] then begin c[k]:=a[i];
inc(k);
end;
for i:=0 to k-1 do
writeln(c[i]);
readln;
end.