Строки

[NewMen]

1 даны строки S1 S2
оставить в S1 только те символы которые содержатся в S2 и вывести S1


2 Дан массив А состоящий из n элементов типа стринг. Поменять строки с минимальной и максимальной длиной...и вывести массив.

[Rusl92]

for i:=1 to length(s1) do
 if pos(s1[i],s2)<> 0 
    then 
     write(s1[i]);

Вот и все!)

[NewMen]

var
 s1,s2:string;
 i:integer;
begin
readln(s1);
readln(s2);
for i:=1 to length(s1) do
 if pos(s1[i],s2)<> 0
    then
     write(s1[i]);
readln;
end.

что не так сделал?

[[CODER]]

var
 s1,s2:string;
 i, j:integer;
begin
readln(s1);
readln(s2);
for i:=1 to length(s1) do
for j:=1 to length(s2) do
 if (s1[i]=s2[j])
    then 
     write(s1[i]);
readln;
end.

[NewMen]

Спасибо)))
А вторую сможешь решить, если не в тяготу?

[Филантроп]

http://www.programmersforum.ru/showthread.php?t=93877