Задачи "Программирование обработки строк" (ЯП "Паскаль") (10 класс)

Из данного списка спортсменов распечатать сведения о тех из них, кто занимается  плаванием. Указать возраст, сколько лет они занимаются спортом паскаль program vopros_159530; const Nmax=100; var kategory:array[1..Nmax] of string; name:array[1..Nmax] of string; vozrast:array[1..Nmax] of integer; l,n,i,max:integer; begin max:=0; repeat writeln('введите кол­во спортсменов <= ',Nmax); readln(n); until (n>0)and(n<=Nmax); writeln('введи фамилию, категорию и возраст спортсмена'); for i:=1 to n do begin read(name[i]); read(kategory[i]); read(vozrast[i]); end; for i:=1 to n do begin  if kategory[i]='плавание' then begin writeln(name[i]);end; if vozrast[i]>Max then begin Max:=vozrast[i];l:=i;end; end; writeln('самый старший'); writeln(name[l],' ',kategory[l],' ',vozrast[l]); end. Подсчитать количество различных символов в строке #2 PascalВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 Var s:string;     i,k:byte;     mn:set of char; Begin     write('Введите строку: ');readln(s);     k:=0;mn:=[];     For i:=1 to Length(s) do      mn:=mn+[s[i]];     For i:=32 to 255 do      if chr(i) in mn then        Begin        write(chr(i):2);        inc(k);       End; PascalВыделить код     writeln;     writeln('Всего различных символов в строке=',k); End. 15 16 17 Дана строка. Подсчитать количество букв А в  последнем ее слове program prim;  Var  s: string;  i, k, p: integer;  begin  writeln ('Введите строку ');  readln (s);  k:=0;  for i:=1 to length(s) do  if s [ i ] =' ' then p:=i; {позиция последнего пробела, т. е. начало последнего слова}  for i:=p+1 to length(s) do  if s [ i ] ='а' then k:=k+1;  writeln ('Количество букв а в последнем слове = ', k);  end.