программа Turbo Pascal

[Skval]

Всем привет!!)) Помогите пожалуйста с написанием программы по Turbo Pascal!!!!.
Составить программу ввода слов,состоящих из 6 символов,до тех пор пока среди них не встретится символ *.Эти слова и их порядковые номера вывести на печать.

[Utkin]

Среди них это среди кого? Среди слов или среди символов?

[Niro]

осуществляем ввод строки, пока в слово не введем знак '*'

repeat
  for i:=1 to 6 do 
    begin
      readln(c)
      stroka:=stroka+c;
    end;

until pos('*',stroka)<>0;

Эти слова и их порядковые номера вывести на печать.

какие эти слова?

[Skval]

Извиняюсь что долго не мог ответить к сожеленью в общежитии нет доступа в интернет...Под этими словами подразумеваеются "нормальные" слова в которых не встречается знак *.При встрече знака * программа должна прерываться и выводить на экран ранее написанные эммм правильные слова....Вот так должна выглядить прога..Чесно говоря без понятия как её делать с паскалем начал своё знакомство только недавно.))