Множества

[DrDre9991]

пацаны выручайте!!!заранее спасибо!!
Дан текст, определить, содержит ли он символы, отличные от букв и пробелов.

[vlad_light]

uses crt;
var
alph: set of 'A'..'z';
p:char;
F:text;
i:byte;
begin
  i:=1;
  assign(F,"../path/file.txt");
  reset(F);
  while not eof(F) do
  begin
    read(F,p);
    if (p not in alph) and p<>' ' do 
    begin
      write('yes');
      i:=2; 
      break
    end;
  end;
  if i=1 then write('no')
  close(F);
  readkey;
end.

На паскале давно ничего не писал, но код похож на правильный)))