Cel mai lung subsir comun

[•Azakaru]

Poate careva sa-mi spuna de ce primesc pe evaluare 0p si eroarea "Non-zero exit status."?  Cand ii dau compile problemei cu exemplul din cerinta, pare sa functioneze corect... Cod sursa:

Cod:

var f,g:text;
    A,B,C:array[1..20] of byte;
    ttl,la,lb,i,j:integer;
begin
assign(f,'clmsc.in');reset(f);
assign(g,'clmsc.out');rewrite(g);
readln(f,la,lb);
for i:=1 to la do
read(f,a[i]);readln(f);
for i:=1 to lb do
read(f,b[i]);readln(f);
for i:=1 to la do begin
  for j:=1 to lb do
      if a[i]=b[j] then begin ttl:=ttl+1;c[ttl]:=a[i];end;
end;
writeln(g,ttl);
for i:=1 to ttl do
write(g,c[i],' ');
close(g);
end.

[•darkseeker]

Fisierele in / out se cheama cmlsc.in/out . Tu le-ai definit cu numele clmsc.