проблема с кодом!ошибка!

[Stilet]

Неее... Тады совсем не так:

for i:=Low(k) to High(k) do begin
 for j:=Low(s) to High(s) do begin
   if k[i]=s[j] then begin
    b:=true 
    for d=low(g) to high(g) do if g[d]=s[j] then begin b:=false;break;end;
    if b then begin
     SetLength(g,Length(g)+1);
     g[High(g)]:=s[j];
   end;
   end;
 end;
end;

Т.е. массив третий динамически менять в циклах.
И проверку - нет ли в g массиве уже такого числа.
Идея понятна?

[silverandsilver]

неа.

нужно считать поидее два массива. найти одинаковые элементы и вывести в третий.
типо вводишь

1 2 3
3 4 5

и выводится
3

[Stilet]

Ну. А я что тебе показываю?

[silverandsilver]

ругается на SetLength(g,Length(g)+1);

[Stilet]

Белыми буквами по туману времени?

[silverandsilver]

чтоо?) я не понял тебя)

[Stilet]

И я тебя не пойму - ты думаешь что все телепаты?
Или твой компилятор ругается на корейском?