var
 x:integer;
 sum,cnt:integer;
 s:string;
begin
 s:=memo1.text;
 sum:=0;
 cnt:=0;
 for x:=1 to length(s) do
  if (ord(s[x])>$7F) then
   begin
    inc(cnt);
    sum:=sum+ord(s[x]);
   end;
 if cnt=0 then ShowMessage('А хер его знает что там');
  else if (sum div cnt<$C0) then showmessage('DOS')
    else showmessage('WIN');
end;