определить общие символы двух строк

[helena91]

Мені потрібно визначити спільні символи обидвох рядків, але чомусь програма видає помилку
[Error] Unit1.pas(237): Undeclared identifier: 'Spsimv'

чому? допоможіть будь ласка
ось текст:

procedure TForm1.Button2Click(Sender: TObject);// вивід спільних 
                                                                  //символів 2-ох рядків
var
a,b,s12:string;

begin
//введення значень рядків
  a:=edit1.text;
  b:=edit2.text;
//визначення одинакових символів
  Spsimv(a,b,s12);
  memo1.Text:=s12;
end;

procedure Spsimv(a,b:string; var s:string);// підпрограма визначення
                                                        //спільних символів 
var i,dlina,po,ps:integer;
begin
s:='';
dlina:=length(a);
for i:=1 to dlina do
begin
ps:=pos(a[i],b);
if ps<>0 then
begin po:=pos(a[i],s);
if po=0 then s:= s+a[i];
end;
end;
end;

Мне нужно определить общие символы двух строк, но програма выдает ошибку
[Error] Unit1.pas(237): Undeclared identifier: 'Spsimv'

почему? помогите пожалуйста
вот текст:

procedure TForm1.Button2Click(Sender: TObject);// вивод общих 
                                                                  //символов 2-ух строк
var
a,b,s12:string;

begin
//ввод значений в строки
  a:=edit1.text;
  b:=edit2.text;
//оределение общих символов
  Spsimv(a,b,s12);
  memo1.Text:=s12;
end;

procedure Spsimv(a,b:string; var s:string);// определение общих символов
                                              
var i,dlina,po,ps:integer;
begin
s:='';
dlina:=length(a);
for i:=1 to dlina do
begin
ps:=pos(a[i],b);
if ps<>0 then
begin po:=pos(a[i],s);
if po=0 then s:= s+a[i];
end;
end;
end;

[veniside]

томущо Spsimv() объявлена после того, как вызвана. Нужно или все тело Spsimv() переместить перед Button2Click(), или просто написать

procedure Spsimv(a,b:string; var s:string); forward;

перед Button2Click().

[helena91]

аа, точно)
дякую))

[Человек_Борща]

Оформите код как положенно! Кнопка: в помощь.

[helena91]

а каким образом можно изменить ету подпрограму, если мне нужно сравнивать строки з двухзначными числами?
например,
первая строка: 1 2 3 4 11 12
вторая строка: 34 12 1 2 3

[ArtGrek]

принцип такои же
http://programmersforum.ru/showpost....38&postcount=4