Помгите понять прогу

var a:string;
    b:array[1..100]of string;
    c:array[1..100]of integer;
    i,j,k:integer;
      begin
        writeln('vvedite stroku');
        readln(a);
        a:=' '+a;
          for i:=1 to length(a) do
            if a[i]=' ' then inc(k)
              else b[k]:=b[k]+a[i];
               for i:= 1 to k do
                 for j:=1 to i do
                   if b[i]=b[j] then inc (c[i]);
                     for i:=1 to k do
                       if c[i]=1 then write(b[i],' ');
        readln;
      end.

var a:array[1..3] of integer;
b:array[1..3] of integer;
i,k:integer;
begin
for i:=1 to 5 do begin
 
readln(a[i]);
readln(b[k]);
b[k]:=b[k]+a[i];
writeln(b[k]);
end;
end.

var
  a: string;
  b: array [1 .. 100] of string;
  c: array [1 .. 100] of integer;
  i, j, k: integer;
 
begin
  writeln('vvedite stroku');
  readln(a);
  k := 0;
  a := ' ' + a;
  for i := 1 to length(a) do   // Разбиваем строку на слова и помещаем их в b
    if a[i] = ' ' then
      inc(k)
    else
      b[k] := b[k] + a[i];
  for i := 1 to k do           // Сравниваем все слова в массиве b
    for j := 1 to i do
      if b[i] = b[j] then
        inc(c[i]);            // Если совпадают, то прибавляем 1 к кол-ву таких слов
  for i := 1 to k do          // Выводим, если кол-во таких слов = 1
    if c[i] = 1 then
      write(b[i], ' ');
  readln;
 
end.