Дано предложение, найти количество слов в нём и найти первую буковку

Дано предложение, определить количество слов в нём и найти первую букву в предложении. PASCAL. Я все сделал необходимо ввести первую буковку перед. Помогите пожалуйста

Program String_6;
uses crt;
var tec : string;
l,i,n : longint;
begin
clrscr;
write('введите текст:');readln(tec);
l:=length(tec)+1;tec[l]:=' ';
for i:=1 to l do if tec[i]=' 'then n:=n+1;
write('В тексте ',n,' слов');
readln;
end.

Задать свой вопрос
1 ответ
Copy (S, poz, n) 
выделяет из строчки S, начиная с позиции poz, подстроку из n знаков. Тут S хоть какое строковое выражение, poz, n целочисленные выражения.

Можно вынуть 1-ый знак из строчки.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт