По заданой блок-схеме составьте программу

Program prog; uses crt; var a: array[1..10] of integer;       s,i,max, min: integer;       sr: real; begin clrscr; min: =a[1]; for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]);   end;   for i: =1 to 10 do begin   s: =s+a[i];   if a[i]> max then max : = a[i];   if a[i]< min then min : = a[i];   end; sr: =s/10; writeln; writeln('сумма всех элементов массива s = ', s); writeln('среднее арифметическое sr = ', sr: 0: 1); writeln('max = ', max); writeln('min = ', min);     end.

Var   s, w: string;   i, x, n, k, p, q: integer; begin   writeln('введите фразу, разделяя слова ровно одним пробелом');   readln(s);   write('введите номер слова для поиска: '); readln(x);   {   ищем в строке s местоположение слова номер х.   его начальную позицию в строке обозначим p, а конечную - q   }   n : = length(s);   i : = 1; k : = 0; p : = 0; q : = 0;   repeat       if s[i] = ' ' then       begin           inc(k);           if k = x - 1 then p : = i + 1           else if k = x then q : = i - 1       end;       if q = 0 then i : = i + 1   until (q > 0) or (i > n);   if (p = 0) then writeln('количество слов в строке меньше ', x)   else if q = 0 then q : = n;   w : = copy(s, p, q - p + 1);   if (pos('а', w) > 0) or (pos('о', w) > 0) then       writeln('одна из букв (а,о) есть в слове "', w, '"')   else writeln('в слове "', w, '" нет ни буквы а, ни буквы о') end. тестовое решение: введите фразу, разделяя слова ровно одним пробелом самая лучшая рыба- это колбаса! введите номер слова для поиска: 5 одна из букв (а,о) есть в слове "колбаса! " введите фразу, разделяя слова ровно одним пробелом тестирование программ может служить доказательством наличия ошибок, но никогда не докажет их отсутствие! » эд. дейкстра, 1972 г. введите номер слова для поиска: 4 в слове "служить" нет ни буквы а, ни буквы о