Паскаль,программа ввода слов.

[Flexo]

Буду очень благодарен за любую оказанную помощь.
Вот условие:
Составить прогамму ввода слов, состоящих из 6 символов,до тех пор, пока среди них не встретится символ "*". Эти слова и их порядковые номера вывести на печать.

[Flexo]

Посоветуйте способ решения задачи

[Sazary]

Наверное, можно проще )
Но это, вроде, работает.

program slova;
uses crt;

var
mas : array[1..100] of string;
c : char;
i,k : integer;
flag : boolean;
begin
clrscr;
for i:=1 to 100 do
 begin
 flag := false;
 for k:=1 to 6 do
  begin
  c := readkey;
  if c=#42 then begin
                flag := true;
                break;
                end;
  mas[i]:=mas[i]+c;
  write(c);
  end;
 writeln;
 if flag=true then break;
 end;
for k:=1 to i do
 begin
 write(k,' ');
 for i:=1 to length(mas[k]) do
   write(mas[k,i]);
 writeln;
 end;
readln;
end.

[Flexo]

ОГРОМНОЕ СПАСИБОО!!!! пойду поковыряюсь))