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

Спасибо:3

var f:text; i,k:integer; s,s1:string;begin;k:=0;assign(f,'text.txt');reset(f);while not(Eof(f)) doread(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.