Задача на строки в паскале

[Вввова]

Помогите пожалуйста, не могу решить задачу:
Напишите функцию, дающую первое местоположение в строке s1 символа встречающегося в строке s2.
Вот написал что-то но выводит неправильно:

program stroki;
uses crt;
var
s1, s2:string;
y:integer;
 function FirstLforS1(s1,s2:string):string;
  var
  i, k:integer;
  s3:string;
 begin
  for i:=1 to length(s2) do
  while pos(s2[i],s1)>0 do
  i:= pos(s2[i],s1);
   s3:=copy(s1,i,1);
    delete(s1,i,1);
     s1:=concat(s3,s1);
      FirstLforS1:=s1;
 end;
  begin
  clrscr;
   writeln('wwedite  s1');
    readln(s1);
     writeln('wwedite s2');
      readln(s2);
       writeln(FirstLforS1(s1,s2));
  end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[north]

есть функция pos(w,s) в строке s отыскивается первое вхождение строки w.

[Вввова]

ну вот я ей и пользовался в стр. 13

[north]

так что ещё надо? Ты присвоил переменной i позицию, вот и выводи ее.

[puporev]

1.

function FirstLforS1(s1,s2:string):string;

Функция ищет первое вхождение, т.е. порядковый номер, сл-но ф-я должна возвращать результат типа integer, а не string.
2.Для хранения номеров нужна не строка, а массив [1..n]of integer.
Короче работа функции должна заключаться в следующем:
1.В двойном цикле сравнение элементов строки S2 с элементами строки S1.
При совпадении элементов включаем счетчик к:=к+1; номер совпавшего элемента в строке S1 заносим в массив a[k]:=pos(S2[j],S1); и так до конца. Затем сортируем массив a[k] по возрастанию и FirstLforS1:=a[1].
Все.

[Вввова]

а как сравнить элементы строк?

[puporev]

Примерно так.

program Fstr;
uses crt;
var s1,s2:string;
function FirstPos(a,b:string):integer;
var i,j,k,x:integer;c:array[1..50]of integer;
begin
while i<=length(s2) do
    begin
      for j:=1 to length(s1) do
      if b[i]=a[j] then
          begin
             k:=k+1;
             c[k]:=pos(b[i],a);
          end;
        i:=i+1;
   end;
for i:=1 to k-1 do
for j:=1 to k-1 do
if c[j]>c[j+1] then
  begin
    x:=c[j];c[j]:=c[j+1];c[j+1]:=x;
  end;
FirstPos:=c[1];
end;
begin
clrscr;
write('S1:');readln(s1);
write('S2:');readln(s2);
write('Rezultat=',FirstPos(s1,s2));
readln;
end.

[Вввова]

!!!Спасибо огромное я видимо вобще не так задание понял!!
хотя я бы его и не решил.

[ЛенкО]

помогите решить))) программа, которая при вводе 2 целых чисел, преобразует их в строки, а потом объединяет в одну строку и выводит на экран))))

[Snejnaya]

var chislo1,chislo2:integr;
var str1,str2,str:string;

str1:=IntToStr(chislo1);
str2:=IntToStr(chislo2);
str:=str1+str2;
writeln(str);

PS^Как сдавать собираешься, если даже такую легкую прогу не можешь написать?