с пунктом описать процедуру (во всех заданиях)!!!

1.Словом назовем всякую последовательность букв латинского алфавита длины не более 20. Предложением — всякую последовательность не более 30 слов, разделенных одним или несколькими пробелами.
Описать процедуру, возвращающую вектор длины всех слов исходного текста.

2.Описать рекурсивную процедуру, которая печатает входную последовательность чисел в обратном порядке.

P. S: Если без полного кода не получится то с полным кодом буду ооочень рад.

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.

если текст распознан, то да. т. е. наобходима программа разспознования fine reader