Составить блок-схему и словесный алгоритм

[MPK]

Доброе время суток! Такое вот задание. Знаю что дело легкое, но вот с ним у меня как раз проблемы

var S,S1:String;
a:array [1..255] of string;
i,j,e,k,kk:byte;
begin
write ('S='); readln (s); S:=S+' ';
j:=0,k:=0;
writeln ('все различные слова');
for i:=1 to lenght (S) do
if not (S[i] in ['!',';',':',?',',','.',''])
then S1:=S1+S[i]
else if lenght(S1)>0 then
begin
kk:=0;
inc(j);
a[j]:=S1;
for e:=1 to j-1 do
if a[e] = a[j] then inc(kk);
if kk=0 then
begin
inc(k);
write(S1, ' ');
end;
S1:= ' ';
end;
writeln;
writeln ('общее количество слов',j);
writeln('количество различных слов',k);
end.

[ACE Valery]

очень сильно советую код сюда.

[MPK]

Сообщение от ACE Valery

очень сильно советую код сюда.

переделал)

[BDA]

Ох(
Во-первых, есть кнопочка #, с помощью которой положено оформлять код.
Во-вторых, чтение кода без нормальной табуляции - мучение.
В-третьих, вы бы хоть запустили набранный код и узнали, что он не компилируется.
В-четвертых, программа работает нестабильно (можно сказать, неправильно).
Вот мой вариант:

const
  maxcount = 255;

var
  a: array[1..maxcount] of string;
  c: char;
  tmp: string;
  count, diff, i, j: integer;
  delimiters: set of char;

begin
  delimiters := ['!', ';', ':', '?', ',', '.', ' '];
  writeln('Input string:');
  read(c);
  count := 1;
  diff := 1;
  while (c <> #13) do
  begin
    if not (c in delimiters) then
      a[count] := a[count] + c
    else
    if a[count] <> '' then
      inc(count);
    read(c);
  end;
  if a[count] = '' then dec(count);
  if count > 0 then
  begin
    writeln('All words:');
    for i := 1 to count do
      writeln(i, ') ', a[i]);
    for i := 1 to count - 1 do
      for j := i + 1 to count do
        if a[i] > a[j] then
        begin
          tmp := a[i];
          a[i] := a[j];
          a[j] := tmp;
        end;
    for i := 1 to count - 1 do
      if a[i] <> a[i + 1] then inc(diff);
    writeln('Count of words: ', count);
    writeln('Count of different words: ', diff);
  end
  else
    writeln('No words');
  readln;
end.

[MPK]

от души! спасибо, не ожидал что такой ответ будет

еще бы словесный алгоритм)

[BDA]

Ну так будет не интересно
Вы так ничего нового не узнаете.
Задавайте конкретные вопросы, если что-то в программе не понятно.