Открыть в паскале текстовый файл,в котором  прописаны цифры от 0 до 9 и русские буквы, напечатать да если в запись строки входят все числа от 0 до 9 в противном случае напечатать нет

var  f:text;  i,k:integer;  s,s1:string; begin; k:=0; assign(f,'text.txt'); reset(f); while not(Eof(f)) do read(f,s); close(f); for i:=0 to 9 do  begin;   str(i,s1);   if pos(s1,s)=0 then k:=1;  end; if k=0 then write('Да') else write('Нет'); end.