Задачка на строки Опции

[Kreaman]

Здравствуйте, уважаемые форумчане....У меня вот проблемка, я уже раза завалил экзамен по программированию, никак не получается у меня с массивами и строками...

Кто может пожалуйста напишете решение....заранее очень благодарен)...

2. Сделать программу.
Ввести строку. Заменить все знаки умножения "*" знаком процента "%". Если знака умножения нет, то вывести об этом сообщение.

[Yevgeny]

Program stroka;
Uses max_crt;
Var
 str:string;
 res:boolean;
Function Poisk(var s:string):boolean;
 Var
  i:integer;
  l:boolean;
 Begin
 i:=1;
 l:=false;
 While i <= length(s) do
  Begin
   if s[i]='*' then
    Begin
     s[i]:='%';
     l:=true;
    end;
   i:=i+1;
   end;
  poisk:=l;
 end;

Begin
 clrscr;
 Write('vvedite stroky:'); Readln(str);
 Writeln('isxodnaya: ',str);
 res:=poisk(str);
 if res then Writeln('===',str) else Writeln('false');
 readln;
End. 

а вот только не понимаю, а pos то тут зачем? тут же нужно одновременно и заменять символ, если он "*", а не просто проверять наличие хотя бы одной звёздочки... Может кто-нить пояснит, если не трудно, плиз!

Сообщение отредактировано: Yevgeny - 30.01.2008 22:50