Выделить в тексте слова, не содержащие знаки данного алфавита - Pascal

program z5;
uses
    crt;
const
     r=' .:,!?-;';
     dsl=15;
     dstr=100;
     nMax=100;
type
    tSlov = string[dsl];
    tStrok = string[dstr];
    tMas = array [1..nMax] of tSlov;
 
procedure vvod(var u:integer; var M:tMas);
var
  dlstr,kolStr,nEl,nSlova,dSlova,i:integer;
  str: tStrok;
begin
     Write('Vvedite kolichestvo strok: '); Readln(kolStr);
     u:=0;
     While kolStr>0 do
       begin
         writeln('Vvedite stroky: '); readln(str);
         dlstr:=length(str);
         nEl:=1;
         while nEl<=dlstr do
           begin
             while (nEl<=dlstr) and (pos(str[nEl],r)>0) do inc(nEl);
             nSlova:=nEl;
             while (nEl<=dlstr) and (pos(str[nEl],r)=0) do inc(nEl);
             dSlova:=nEl-nSlova;
             if dSlova>0 then
                begin
                  inc(u);
                  M[u]:=copy(str,nSlova,dSlova);
                end;
           end;
         dec(kolStr);
       end;
end;
 
var
  u,i:integer;
  M:tMas;
begin
  clrscr;
  Vvod(u,M);
  Writeln('Otvet: ');
  for i:=1 to u do {Writeln(M[i]);}
  begin
   Write(' ');
   Write(M[i]);
   end;
  Readln;
end.