Добрыня Микитич и Баба Яга (TurboPascal)

[VladKB1]

После утомительного сражения со Змеем Горынычем Добрыня случайным образом набрёл на
избушку Бабы Яги. Микитич показал Яге карту с маяками и спросил, как добраться коротким
путём домой. Яга же, узнав о смерти Горыныча(который так и не возвратил ей долг), решила
отомстить Добрыне и дала неправильную информацию о номерах маяков, по которым он
должен дойти до дома.
После ещё более утомительного хождения по лесу Микитич снова вернулся к избушке. о, на
этот раз, Баба Яга испугалась, и не обманула - дала номера маяков, такие, что если выписать
номера новых маяков, которые совпадают со старыми, то Добрыня дойдёт по этому пути
домой. Помогите Микитичу в этой проблеме.

Формат ввода:
n количество старых маяков (0 < n < 11)
a1 a2 …an номера старых маяков (0 < ai < 1000001)
m количество новых маяков (0 < m < 11)
b1 b2 …bm номера новых маяков (0< bi <100001)

Формат вывода: номера совпадающих маяков. Порядок вывода совпадает с порядком ввода
старых маяков.

mikitich.in
8
1 2 3 2 2 3 4 1
6
2 3 1 3 3 5
mikitich.out
1 2 3 3

Задача решена , но как бы глупо это не звучало я не могу убрать пробел в конце:

var
 n,m,i,j,x: longint;
 a,b: array [0..11] of longint;
begin
 assign(input,'mikitich.in');
 reset(input);
 assign(output,'mikitich.out');
 rewrite(output);

 read(n);
 for i:=1 to n do read(a[i]);
 read(m);
 for i:=1 to m do read(b[i]);

 for i:=1 to n do
 begin
  x:=a[i];
  for j:=1 to m do if b[j] = x then
  begin
   write(x,' ');
   b[j]:=0;
   break;
  end;
 end;
end.

[Аватар]

n:=0;
for i:=1 to n do
 begin
  x:=a[i];
  for j:=1 to m do if b[j] = x then
  begin
   if n>0 then write(' '); 
   Inc(n);
   write(x);
...

[VladKB1]

Сообщение от Аватар

n:=0;
for i:=1 to n do
 begin
  x:=a[i];
  for j:=1 to m do if b[j] = x then
  begin
   if n>0 then write(' '); 
   Inc(n);
   write(x);
...

Спасибо за помощь, но вы наверно сделали опечатку:

n:=0;
...
 if n>0 then write(' '); 
 Inc(n);

было бы глупо присваивать переменной 0 и делать цикл от 1 до 0, но я поменял на другую переменную и всё работает! Большое спасибо!

[Аватар]

Да, то не заметил. Ну и самому не плохо ошибку найти

[VladKB1]

Сообщение от Аватар

Да, то не заметил. Ну и самому не плохо ошибку найти

Согласен)) Ещё раз спасибо)