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

Ты хочешь чтобы тебе решили или чтобы помогли разораться?

Ну решите если не трудно , остальные все я сделал , только здесь заглох ...

1-я, примитивно .. но всё же

uses crt;


var
  s                : string;
  i                : integer;
  g, h, j, k, l, z : integer;

begin
clrscr;
  writeln ('Введите строку: ');
  readln (s);

for i:=1 to length (s) do begin
 if '.' = s[i] then inc (g);
 if ',' = s[i] then inc (h);
 if ';' = s[i] then inc (j);
 if ':' = s[i] then inc (k);
 if '!' = s[i] then inc (l);
 if '?' = s[i] then inc (z);
end;

  writeln ('. - ',g);
  writeln (', - ',h);
  writeln ('; - ',j);
  writeln (': - ',k);
  writeln ('! - ',l);
  writeln ('? - ',z);
  readln;

end. 

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

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.

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

Cпасибо ребята , а с 3 нужно через repeat ??


А что за семейство окружностей?
Ну в окружности находится еще одна окружность , причем точка касания всех окружностей одна.

Как я понял нужно подключать графу , и еще момент , я посмотрел и кое-что понял , если наименьшая окружность касается центра большей окружности , то диаметр маленькой будет являться радиусом большой .
А вот как это все написать я незнаю ((

Анна, а где написано , что надо подсчитать сколько раз каждый знак препинания входит в строку ?