Обработка символьной информации

program gruppa;
const n=3;
type mas=array[1..n]of byte;
     stud=record
          fam,name,pol:string;
          god:integer;
          ocn:mas;
          end;
var gruppa01: array[1..n] of stud;
    i,j,k,p:integer;
begin
Writeln('Vvvedite informaciu o gruppe:');
For i:=1 to n do
  with gruppa01[i] do
    begin
      writeln('Student ',i);
      write('Familia: ');readln(fam);
      write('Imya: ');readln(name);
      write('God: ');readln(god);
      write('Pol: ');readln(pol);
      writeln('Ocenki:');
      for j:=1 to 3 do
        begin
          write('Ocenka ',j,': ');
          readln(ocn[j]);
        end;
    end;
readln;
clrscr;
writeln('student yt sdavwii 2 examinov:');
p:=0;
for i:=1 to n do
   with gruppa01[i] do
     begin
       k:=0;
       for j:=1 to 3 do
       if ocn[j]=0 then k:=k+1;
       if k>2 then
          begin
            p:=1;
            writeln(fam);
          end;
     end;
if p=0 then write('Takih studentov net!');
readln
end.

program slova;
const rz=['.',',',';',':','?','!'];{перечень возможных разделителей, можно добавить}
var str,s,s1:string;
    sim:char;
    i,l,k,max,j,p:integer;
begin
write('Vveditr stroky = ');{вводим любые символы, там где разделители или пробелы, будут отделяться слова}
readln(str);
write('Vvedite simvol= ');{задавать символ можно любой, но лучше не разделитель, его не будет в слове, хотя в строке будет}
readln(sim);
str:=str+' ';{добавим пробел в конец для фиксации последнего слова}
l:=0;
For i:=1 to length(str) do
  begin
   if str[i]=sim then l:=l+1;{считаем заданный символ}
   if str[i] in rz then str[i]:=' ';{заменяем разделители на пробелы, для однообразия}
  end;
if l=0 then {если символа нет}
   begin
    writeln('Takogo simvola v stroke net!');
    readln;
    exit;{завершаем программу}
   end;
while pos('  ',str)>0 do {удаляем лишние пробелы}
delete(str,pos('  ',str),1);{в апостровах обязательно по 2 пробела, 1 удаляем}
s:='';max:=0;p:=0;
while pos(' ',str) > 0 do{пока есть пробелы}
   begin
    s:=copy(str,1,pos(' ',str)-1);{копируем первое слово}
    k:=0;
    for j:=1 to length(s) do
    if s[j]=sim then k:=k+1;{считаем в нем символ}
    if k>max then {если больше предыдущего макс, это макс}
      begin
        s1:=s;{запоминаем слово}
        max:=k;{запоминаем количество}
        p:=1;{фиксируем что символ есть хоть в одном слове, т.е. это не разделитель}
      end;
    delete(str,1,pos(' ',str));{удаляем это слово, все повторяем со следующим и как пока не просмотрим последнее слово}
  end;
writeln('v stroke ',str,'simvolov',sim,' ',l);
if p=0 then writeln('V slovah etogo simvola net. Eto razdelitel!')
else write('Bolshe ',sim,' v slove ',s1);
readln
end.