Решение задач со строковым типом

Задача 1.
Пользователь вводит с клавиатуры слово. Программа выводит:
1) Первую букву стова
2) Количество букв в слове

var
s:string;
a:integer;
begin
write('Напечатайте слово ');
read(s);
a:=length(s);
writeln('Первая буква слова: ',s[1]);
write('Длина слова = ',a,' символов');
end.

Задача 2.
Пользователь вводит с клавиатуры Фамилию и Имя через пробел.
Программа выводит сокращённый вариант записи.
Пример:
---------------------
| Входные данные: |
| Иванов Матвей |
---------------------
|Выходные данные: |
|Иванов М. |
---------------------

var
a,b,l:integer;
s:string;
begin
writeln('Введите фамилию и имя');
read(s);
l:=length(s);
for a:=1 to l do
if s[a]=' ' then
b:=a;
delete(s,b+2,100);
write(s,'.');
end.

Видео с разбором задачи