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

[at0m]

Вообщем в контрольную входят следующие задания:
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.