iPanda 51 задача правильная при чём ты её не стал делать через функцию и процедуру как и не надо было делать)) А вот 33 неправильная она вот так выглядит на самом деле:

Program P_33;
Uses crt;
Var
St: String;
Instr: String;
Ostr:String;
P, pp:byte;
Begin
Write('Input string: ');
Readln(St);
Write('Input Inner String: ');
Readln(Instr);
Ostr:='';
For p :=1 to length(Instr) do
Ostr := Ostr+'*';
p := Pos(Instr,St);
While P <> 0 DO
Begin
pp:=p;
Delete(st, P, length(Instr));
Insert(Ostr, St, P);
p := Pos(Instr,St);
End;
Writeln('‚ В исходной строкефрагмент ', Instr, ' последний раз встречается в позиции ', PP);
ReadLn;
End.

Если хочешь увидеть как выглядит 51 задача(через процедуры и функции) то могу сюда же скинуть просто она в 105 строчек

Dulik, я тебя не виню.
Видимо плохо искал, ведь надо не в нете искать, а в универе и по друзьям.
p.s. Спасибо Зверю за его помощ в этой же проблеме

как же не помочь бедняге ) , + хостит все кв нам ) на имбо пинге)

Привет всем... Спасибо IPanda и др что вы отозвались... Fate я же неделю ищу у себя кого нибудь что бы без подъёба... у меня одногруппника развели на полторы штуки... по веб мани... а лично я никого найти немогу что бы встретится и обговорить это... 22 числа последний день когда можно будет всё сдать... у нас препод увольняется из за своего здоровья... и нам на 30 дней сокращяют практику из за этого... так что сейчас все сокурсники мои в шоке... И... я же не заставляю Вас мне помогать... просто спросил Артура есть ли у него знакомые кто шарит в паскале... а он тут тему создал... большое спасибо если вы поможите...

А парень хитрый, пусть заплатит кому-нить и ему забахают. А то нахаляву и бесплатно :O
Зажирно...

я пока все =) вечером может еще поделаю если время будет

сча ко мне идёт пиво пить умный скромняга, озадачу его =)

блииин, последняя простая, тока я комманд не помню =(

33:

PROGRAM L33;
VAR STR: STRING; INSTR: STRING;
BEGIN
WRITE('INPUT SRING: ');
READLN(STR);
WRITE('INPUT INNER STRING: ');
READLN(INSTR);
WRITELN(LENGTH(STR) - POS(INSTR,STR) + 1);
READ(STR);
END.

я тоже попробую чемнить помочь