Ввод символьной матрицы

[Exoo]

задание:

Дана символьная матрица, каждая строка которой является предложением. Характеристикой предложения назовем длину самого длинного слова. Определить номер строки, имеющей наименьшую характеристику.

подскажите как организовать ввод символьной матрицы - элементы которой являются предложения. А предложения в совою очередь организуются при помощи символов. Нужно организовать цикл ввода символов до определенного знака - точки.
ни как не могу понять как сделать из последовательности введенных символов предложение или хотя бы слово.
другими словами мне нужно организовать символьный ввод строчного массива...кажется
за ранее спасибо.

[Exoo]

совсем забыл, пример желателен на паскале

[Exoo]

нашел я решение как записывать в строковый массив

VAR
i:byte;
A: INTEGER;
F: CHAR;
s: array [1..100] of string;
BEGIN
WRITELN ('введите предложение, оканчивающееся точкой.');
i:=1;
REPEAT
    a := 0;
    F := '1';
    WHILE (F <> '') AND (F <> '.') DO
             BEGIN
             READ(F);
             IF ((#0<=F) AND (F<=#127)) and (F <> #46) THEN
                begin
                a := a + 1;
                s[i]:=F;
                inc(i);
                end;
             END;

UNTIL F='.';	
WRITELN ('число введенных символов =', a);
for i:=1 to a+1 do WRITE (s[i])
END.