Задача на Строки., Удаляет 2 символа + печатает длину строки после удаления Опции

[Myasnik]

Всем привет! =)

Я в паскале 0 с половиной Вот тут у меня задачка такая... многое чо перерыл... ненашёл толком ответа...

Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления.

Спасите, кто может!

p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь.

Ещё раз спасибо!

[volvo]

  Write('Type in a line:    ');ReadLn(s);   {вводит строку}
  Delete(s,Pos('!',s)+1,2);   {удаляет два символа после "!", если он есть}
  WriteLn('Corrected line is: ',s);   {выводит исправленную строку}
  WriteLn('total characters:  ',Length(s));   {выводит число символов в исправленной строке}

lapp, а если знака нет, то будут удалены первые 2 символа... "Нам это надо?"(С)

[Lapp]

lapp, а если знака нет, то будут удалены первые 2 символа... "Нам это надо?"(С)

Не, думаю, не надо (

  Write('Type in a line:    ');ReadLn(s);   {вводит строку}
  i:=Pos('!',s);   {находит "!"}
  if i>0 then Delete(s,i+1,2);   {удаляет два символа после "!", если он есть}
  WriteLn('Corrected line is: ',s);   {выводит исправленную строку}
  WriteLn('total characters:  ',Length(s));   {выводит число символов в исправленной строке}

Извиняюсь за ошибку..

[Myasnik]

НУ и так всё супер! =) И тот вариант тож подошёл ибо я всегда воскл. знак ввожу, а лаборанты видят, всё работает и отстают =)))
p.s. да, второй вариант мне тож нравится.
p.s.s. а никто блок-схему к этой задачке не нарисует?