Контрольная работа по паскалю Опции

[at0m]

Вообщем в контрольную входят следующие задания:
1. Дана строка символов. Подсчитать количество знаков препинания (. , ; : ! ? ),
входящих в данную строку.
2. Определить наибольшую длину слова в тексте. Считать, что все слова отделены пробелами.
3. Используя команду повторении, построить семейство окружностей.
Очень тяжко с этими темами у меня , помогите написать программы..

[Unknown]

А вот и вторая:

uses crt;

var s:string; i,k,l:integer;

begin
clrscr;
write('Введите строку: '); readln(s);
s:=s+' ';
l:=1;
for i:=1 to length(s) do
	begin
	if s[i]=' ' then begin if k>l then l:=k; k:=0; continue end;
	inc(k);
	end;
writeln('Длина наибольшего слова = ',l);
readkey
end.

А что за семейство окружностей?