Одномерный символьный массив как дополнить програмку

[Grizzz]

1. Описать символьный массив длиной 80 символов.
2. Ввести предложение, состоящее из слов, разделенных пробелами.
3. При необходимости ввести задание, например, заданную букву.
4. Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слова с указанием их длины, слова, удовлетворяющие заданию, пометить примечанием, например, "Начинается на заданную букву".
5. В случае исключительных ситуаций выдать сообщение

СТРОКА ПУСТА
СЛОВ, УДОВЛЕТВОРЯЮЩИХ ЗАДАНИЮ, НЕТ
СЛОВО ЕДИНСТВЕННОЕ
задание: Слово минимальной длины


вот задание
а вот код

program Predlojenie;
uses crt;
var a,s:array[1..80] of char;
    n,i,j,k,m,z,min:byte;
    c:char;
begin
clrscr;
writeln('Введите предложение');
n:=0;
repeat
c:=readkey;
n:=n+1;
a[n]:=c;
write(c);
if(c='.')or(n=80) then writeln;
until (c='.')or(n=80);
if a[n]='.' then n:=n-1;
{ошибка если строка пуста}
if n=0 then
 begin
  writeln('Строка пуста');
  readln;
  exit
 end;
i:=1;
m:=0;
while i<=n do
if (a[i]<>' ')and((i=1)or(a[i-1]=' ')) then
 begin
  m:=m+1;{номер слова}
  k:=0;
  j:=i;
  while(a[j]<>' ')and(j<=n) do
   begin
    k:=k+1;
    s[k]:=a[j];
    j:=j+1;
   end;
  write('Слово ',m,'=');
  for j:=1 to k do
  write(s[j]);
  writeln('  его длина',k);
  i:=i+k;
 end
else i:=i+1;
readln;
end.

что нужно добавить???