Висходной строке а$ определить и вывести слова, в которых первая буква встречается всего один разбэйсик)

Dim s, s1, s0, t as string           'строка, первая буква слова, слово, список нужных слов s = inputbox("введите строку: ") do     do         n = n + 1         if s1 = "" then s1 = mid(s, n, 1)             'запоминаем первую букву слова         if mid(s, n, 1) = s1 then m = m + 1       'считаем, сколько раз она встретилась         s0 = s0 & mid(s, n, 1)                             'запоминаем слово         if n > len(s) then exit do     loop while mid(s, n, 1) < > " " if m = 1 then t = t & s0                                   'переносим слово в список m = 0                       'сбрасываем промежуточные переменные в исходное состояние s1 = "" s0 = "" loop until n > len(s) if t = "" then t = "искомых слов нет" msgbox (t)

После do точку с запятой ставить не надо uses crt; var       i, j: integer; begin       randomize;       for i : = 1 to 20 do       begin       writeln(i);               textcolor(green);               for j : = 1 to 20 do                       write(random(50000));                             textcolor(yellow);               for j : = 1 to 20 do                       write(random(50000));                             textcolor(red);               for j : = 1 to 20 do                       write(random(50000));       end; end.

Const     n = 4;     m = 6; var     a: array[1..n,1..m] of integer;     b: array[1..n] of integer;     i,j,k: integer;     c: real; begin writeln('введите массив: '); for i: = 1 to n do       for j: = 1 to m do               read(a[i,j]); writeln; write('введите число: '); readln(c); for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               if c< a[i,j] then k: =k+1;       b[i]: =k;       end; writeln; for i: = 1 to n do       write(b[i],' ') end. пример: введите массив: 4 6 2 6 -6 -6 5 2 7 -3 6 -3 -2 -8 -1 3 4 1 -8 -5 -4 10 -5 6 введите число: 4 2 3 0 2